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CUT-OFF! 

A  fast-action  two- 
player  game  written 
in  machine  lan- 
guage. For  the  VIC 
and  64. 


The  Dcrta  Base 
As  A  Home 
Information 
Center 

A  look  at  this  power- 
ful new  software  for 
personal  computers. 
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Edwational  Games 
For  The  64 
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Sea  Route  To 
India:  A  Historical 
Simulation. 

A  colorful  and  ex- 
citing recreation  of 
the  fiffeenth-century 
Portuguese  voyages 
to  India. 


Also  In  This  Issue 

A  Guide  To 
Commodore  User 
Groups— Parti 

Computing  For 
Families 

Machine  language 
For  Beginners 


Guess  America. 

Travel  across  the 
country  in  a  covered 
wagon  by  answering 
questions  about  U.S. 
history,  geography, 
and  current  events. 
A  valuable  learning 
tool. 


MAKING 

MORE  READABLE 

LISTINGS 

BASIC  editing  tech- 
niques for  unique 
listing  formats.  For  the 
VIC  and  64. 
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:ch  IDits  with  the  mind 
from  Broderbund! 


Your  mind  is  the  ultimate  weapon  in  this  unique  war  game. 
Strategy,  not  force,  is  the  key  to  victory  as  you  move  your  battalion  through  a 
series  of  testing  skirmishes  and  battle  actions.  Your  ability  to  command,  to  give 
orders,  to  move  your  troops  skillfully  determines  the  success  of  your  assault 
and  combat  operations.  Operation  Whirlwind  requires  the  concentration  of 
chess— a  typical  game  may  take  between  one  and  three  hours— and  the 

ability  to  master  the 
many  tactics  of  wag- 
ing a  full  scale  war. 
How  well  you  can 
focus  your  strategic 
energies  will  decide 
whether  your  vic- 
tory is  Question- 
able, Marginal, 
Tactical,  Strategic  or 
a  Breakthrough.  A 
great  game  for  the 
thinking  game  player. 
Available  on  disk. 


Pit  your  concentration  against 
another  player  or  the  computer.  Here's  a  puzzle  game  that 
will  keep  the  whole  family  bemused,  befuddled  and  play- 
ing happily  for  hours.  A  grid  of  36  numbered  boxes  con- 
ceals an  animated  menagerie  of  colorful  characters, 
creatures  and  objects.  The  object  of  the  game  is  to  match 
identical  squares  and  then  solve  a  hidden  word  puzzle. 
There  are  many  game  variations  with  puzzles  that  are 
frontward,  backward,  or  scrambled.  Matchboxes.  It's  the 
most  memorable  memory  game  you've  ever  played! 
Available  on  disk  and  cassette.* 

OPERATION  WHIRLWIND  AND  MATCHBOXES  ARE 
AVAILABLE  FOR  THE  COMMODORE  64  AND  ATARI 

HOME  COMPUTERS.  COMMODORE  64  and  AT  ARt  urn  tradomarXj  ol  Atari.  Inc.,  and 
Commodore  Electron  let,  Ltd..  respectively. 

'Cassette  on  Atari  computers  only. 


WBroderbundSoftwari 

Discover  the  Difference 

17  Paul  Drive    San  Rafael,  CA  94903 
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These  are  the  hands  of  a 
master  typist. 


(Jonathan  Pandolfi,  age  7.) 


MasterType— the  best-selling  program  that 
turns  learning  into  child's  play. 

Given  the  choice  of  learning  a  skill  or  playing  a 
game,  most  kids  go  for  the  game. 

So  how  has  MasterType'"  gotten  so  many 
young  kids  to  sit  still  long  enough  to  learn  to  type? 

By  being  fun.  By  bringing  the  fast  action  of 
video  games  to  each  of  MasterType's  lesson 
program  segments. 

Kids  get  so  caught  up  in  zapping  spaceships, 
Jthey-hardly-realizetheyVexnaster-ed-theiceyboaixl. 


Warning:  Parents  like  it,  too.  And  may  find 
themselves  unwittingly  becoming  expert  typists 
before  they  know  it. 

Disks:  Apple;  Atari;  Commodore  64*  $39.95 
IBM-PC  $49.95 
Cartridges:  Atari;  Commodore  64"  $39.95 

Try  the  other  programs  in  the  Scarborough 
System— Songwriter,"  PictureWriter',"  Phi  Beta 
Filer',"  PatternMaker"and  Run  for  the  Money."  All 
Scarborough  software  utilizes  your  computer's 
capabilities  to  the  fullest.  And  perhaps  more 
importantly,  all  are  easy  to  use. 


Apple,  IBM  and  Atari  are  registered  trademarks  of  Apple  Compulur,  Inc.,  International 
Business  Machines  Corp  and  Atari,  Inc.  respectively  Commodore  64  is  a.  trademark  of 
Commodore  Electronics  Limited. 


The  Scarborough  System. 

Scarborough  Systems,  Inc.,  25  N.Broadway,  rarrytown,  New  York  10591^^  B 


.Broadway,  Tarry 


RE  LIKE  MOST 
BUY  A  SINGLE 


YOU'LL  BUY  LOTS  OF  SPINNAKER  GAMES. 

And  not  just  because  they're  educational,  but  also  because  they  happen 
to  be  a  lot  of  fun  to  play. 

In  fact,  they're  so  much  fun,  parents  have  been  known  to  sneak  in  a 
few  hours  of  play  when  the  kids  are  asleep. 

After  all,  if  your  kids  are  actually  enjoying  a  learning  game,  there  must 
be  something  to  it.  And  there  is:  Fun.  excitement  and  real  educational 
value.  That's  what  sets  Spinnaker  games  apart  from  all  the  rest.  And 
what  brings  parents  back  for  more. 

We  offer  a  wide  range  of  learning  games  for  a  wide  range  of  age  groups; 
3  to  14.  One  look  at  these  two  pages  will  show  you  how  we  carefully 
designed  our  line  of  learning  games  to  grow  right  along  with  your  child. 

So  if  you're  looking  for  a  line  of  learning  games  that  are  as  much  fun  to 
play  as  they  are  to  buy,  consider  Spinnaker  Games.  They're  compatible 
with  Apple,  Atari,  IBM  PC,  PCjr,  Commodore  64,  Coleco  Adam  and  parents 
who  don't  mind  their  kids  having  fun  while  they  learn. 


It's  newl  KIDWRITER™  lets  kids 
make  their  own  storybook. 
Ages  6  to  10. 

KIDWRITER  gives  children  a 
unique  new  format  for  creating 
theirown  stories.  With  KIDWRITER, 
kids  make  colorful  scenes,  then 
add  their  own  story  lines.  It's  as 
versatile  and  exciting  as  your 
child's  imagination! 

Best  of  all.  while  it  encourages 
children  to  create  word  and  pic- 
ture stories,  it  also  introduces 
them  to  the  fundamentals  of 
word  processing.  KIDWRITER 
will  bring  out  the  storyteller  in 
your  children— and  in  you! 


A  trip  through  ALPHABET  ZOO™ 
Ages  3  to  8. 

It's  a  race.  It's  a  chase.  It's 
Alphabet  Zoo,  a  game  that  sends 
your  kids  zipping  through  the 
maze,  after  letters  that  fit  the 
picture  on  the  screen. 

Your  kids  will  have  fun  learning 
the  relationship  of  letters  and 
sounds,  and  sharpening  their 
spelling  skills.  They'll  be  laughing 
at  every  turn. 


Apple  m  Atari  .re  mglsnrtu  truemirKi  of  Applt  Computer.  Worn)  Awn.  Inc.  rtlpefflvtly  1BW  PC  and  PCjr,  Commodore  64ar>a  CoIko  Aaam  3f.  iradt  ranker  lrwr.nion.il  fttMtng  M«nin«  Corp..  Con, modort 
twnrofiKl  LIP  iMCplKiilNlustrwirnpKtiwt    '  1984 .spinnMwson wirr  Corp  All  rights  rn*rv« 


PARENTS,  YOU  WON'T 
SPINNAKER  GAME. 


FRACTION  FEVER™  brings 
fractions  into  play. 
Ages  7  to  Adult. 

FRACTION  FEVER  is  a  fast-paced 
arcade  game  that  challenges  a 
child's  understanding  of  fractions. 
As  kids  race  across  the  screen  in 
search  of  the  assigned  fraction, 
they're  actually  learning  what  a 
fraction  is  and  about  relationships 
between  fractions. 

All  in  all.  FRACTION  FEVER 
encourages  kids  to  learn  as  much 
as  they  can  about  fractions— just 
for  the  fun  of  it! 


DELTA  DRAWING™  Have  fun 

creating  pictures  and  computer 

programs. 

Ages  4  to  Adult. 

Kids  love  to  draw.  And  DELTA 
DRAWING  Learning  Program  lets 
them  enjoy  creative  drawing  and 
coloring  while  they  learn  com- 
puter programming  concepts. 

With  DELTA  DRAWING,  even 
kids  who  have  never  used  a  com- 
puter before  can  learn  to  write 
programs  and  build  an  under- 
standing of  procedural  thinking. 
It's  easy,  clear,  and  lots  of  fun! 


FACEMAKER™  makes  faces  fun. 
Ages  3  to  8. 

FACEMAKER  lets  children 
create  their  own  funny  faces  on 
the  screen,  then  make  them  do 
all  kinds  of  neat  things:  wink, 
smile,  wiggle  their  ears,  and  more. 

Plus,  FACEMAKER  helps  famil- 
iarize children  with  such  com- 
puter fundamentals  as  menus, 
cursors,  simple  programs,  and 
graphics.FACEMAKER  won't 
make  parents  frown  because  their 
children  will  have  fun  making 
friends  with  the  computer. 
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Disks  for;  Apple,  Atari,  IBM  PC  and  PCjr,  Commodore  64. 
Cartridges  for;  Atari,  IHM  PCjr.  Commodore  64.  Coteco  Adam. 


We  make  learning  fun. 
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SAVE  NEW! 


It  was  as  peaceful  a  day  as  New  York  ever  gets,  when  suddenly  Ihe  sky  went  dark  and 
a  monstrous  droning  noise  filled  the  air.  Hordes  of  grotesque  aliens  were  swooping  down  from 
all  sides,  biting  into  the  Big  Apple  as  if  they  hadn't  eaten  for  days.  They  were  laying  eggs,  too. 
Horrible  slimy  tilings  that  got  down  into  the  subway  tunnels  and  began  clawing  their  way  up. 
If  anyone  was  going  to  save  the  city,  it  would  have  to  be  me.  I  leapt  into  my  rocket  and 
began  blasting  away.  I  thought  I  stood  a  fighting  chance,  but  fuel's  running  low. . .  another  wave 
of  invaders  on  the  horizon. . .  signing  off. . . 

SAVE  NEW  YORK!"  For  the  Commodore  64. 
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EDITOR'S 


GAZETTE  On  Disk! 

Last  issue,  we  announced  that 
we  would  be  beginning  a  sub- 
scription service  through  which 
you  could  receive  a  monthly 
disk  containing  all  significant 
programs  from  each  issue  of 
COMPUTE !'s  GAZETTE.  We  prom- 
ised full  details  in  this  issue,  and 
here  they  are.  We've  revised  it  a 
bit  from  the  structure  that  we 
briefly  outlined  in  our  February 
issue. 

Rather  than  begin  the  pro- 
gram by  actually  extending  your 
GAZETTE  subscription,  we're 
going  to  treat  the  GAZETTE  Disk 
as  a  separate  entity.  Thus,  you 
may  subscribe  to  computers 
GAZETTE,  for  example,  and  later 
subscribe  to  COMPUTEl's  gazette 
Disk.  You  could  even  subscribe 
to  the  GAZETTE  Disk  alone,  but 
best  make  sure  you  can  get  your 
hands  on  a  copy  of  that  month's 
issue  of  the  GAZETTE.  All  of  the 
article  text  and  explanations  will 
still  appear  only  in  the  magazine. 
The  goal  of  GAZETTE  Disk  is  to 
free  you  from  the  time  and 
energy  necessary  to  type  all  of 
these  programs  in  every  month. 
And  the  disk  should  save  you 
debugging  time  as  well. 

Here's  the  information 
you'll  need  to  begin  your  charter 
subscription  to  COMPUTEl's 
GAZETTE  Disk: 

The  disk  service  will  begin  with 
the  May  or  June  issue  of  the 
GAZETTE.  The  logistics  of  getting 
the  service  started  require  that 
these  be  the  earliest  possible 
issues. 


Price  for  a  single  issue  ordered 
by  phone  from  COMPUTEl's 
GAZETTE  is  $7.95  plus  $1  shipping/ 
handling. 

Price  for  a  six-month  subscrip- 
tion is  $39.95. 

Price  for  a  twelve-month  sub- 
scription is  $69.95. 

Each  issue  of  the  GAZETTE 
Disk  will  contain  all  of  the  pro- 
grams in  the  corresponding  issue 
of  the  magazine  (with  the  excep- 
tion of  short  program  examples 
or  other  programs  that  are  only 
a  few  lines  in  length). 

You'll  receive  each  subscrip- 
tion issue  by  first  class  mail  at 
approximately  the  same  time 
you  receive  your  copy  of  the 
magazine.  If  you  order  a  single 
copy  disk  instead,  you'll  receive 
it  approximately  two  weeks  after 
you  place  your  order. 

Each  issue's  programs  will 
arrive  on  a  first  quality  disk, 
duplicated  and  tested  to  our 
specifications.  Charter  sub- 
scribers (those  who  subscribe 
prior  to  March  30),  and  those 
who  order  the  first  issue  of  the 
GAZETTE  Disk,  will  receive  as  a 
bonus  the  excellent  word  proc- 
essing program  by  Charles  Bran- 
non  that  appeared  in  our  January 
1984  issue. 

We're  rather  excited  here 
about  the  launch  of  our  first  disk 
service.  You'll  save  time  and 
typing  headaches,  and  we'll  be 
delivering  the  same  excellent 
quality  in  a  format  you  won't 
have  to  debug.  And  best  of  all, 
we've  taken  an  aggressive  pricing 


approach  that  allows  us  to  de- 
liver you  a  tremendous  amount 
of  first-rate  software,  including 
disk  and  postage,  for  less  than  $6  a 
month  on  a  twelve-month  basis. 
By  the  way,  you  won't  need  to 
specify  whether  you  have  a  VIC 
or  a  64. . .  each  issue  will  be  de- 
signed to  have  the  programs  for 
both. 

Enjoy  your  CAZETTE  this 
month,  and  we'll  look  forward 
to  sending  you  the  first  issue  of 
the  GAZETTE  Disk. 


Editor  In  Chief 


To  reserve  your  charter  disk, 
write  to  COMPUTEl's  GAZETTE 
Disk,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Indi- 
cate whether  you  wish  to  order 
(1)  a  twelve-month  disk  sub- 
scription for  $69.95,  (2)  a  six- 
month  disk  subscription  for 
$39.95,  or  (3)  a  single  issue 
for  $7.95  plus  $1  shipping/ 
handling.  Outside  the  United 
States  and  Canada,  please 
add  an  additional  $3  per  in- 
dividual disk  ordered  for 
shipping/handling.  For  a  six- 
month  subscription  add  an 
additional  $18.  For  a  twelve- 
month subscription,  an  addi- 
tional $36.  All  prices  are  in  US 
funds. 
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If  you  could  live  on  half 

your  income,  just  think  what 

you  could  do  with  the  other  half  I 


ifesfyle  Budgeting  ™. 


*9 

system  that  considers  all 

your  needs. 

Others  have  done  it . . . 
so  can  you. 
Dr.  Harper  Roehm.  the  author  of 
Spending  Less  and  Enjoying  It  More 
(the  McGraw-Hill  book  that  provides 
the  basis  for  this  system),  designed 
lifestyle  Budgeting  when  his  income 
was  cut  in  half  due  to  a  career  change 
from  corporate  auditor  to  university 
professor.  As  a  result,  his  family  has 
lived  comfortably,  fulfilling  their 
"wants"  as  well  as  their  "needs"  for 
over  20  years. 

We  show  you  "why" 
as  well  as  "how." 
Lifestyle  Budgeting  is  the  first  com- 
plete budgeting  package  to  include 
an  easy-to-understand  book  explaining 
the  behavioral  aspects  of  successful 
budgeting  as  weli  as  software  to  handle 
the  mechanics.  It  takes  a  practical 
approach,  showing  you  not  only  how 
you're  spending  your  money,  but  why 
...  so  you  can  identify  your  true  priori- 
ties and  plan  for  them. 

Planning  is  the  key. 
Lifestyle  Budgeting's  software  is  a 
forecasting  and  modeling  tool,  not  a 
checkbook  balancer.  It  will  track  your 
spending  patterns,  identifying  where 
you're  wasting  valuable  funds.  Using 
that  information,  and  your  family's 
priorities,  it  will  show  you  specifically 
how  to  project  and  plan  future  costs. 
Little  time,  and  no  accounting 
experience  required. 
Unlike  most  budgeting  systems, 
Lifestyle  Budgeting  does  not  require 
detailed  expense  records.  It  will  only 
take  a  couple  of  nights  to  set  up  and 
then  only  one  or  two  hours  a  month  to 
monitor.  And ...  a  big  plus ...  Lifestyle 
Budgeting  is  written  for  you,  not  your 
accountant. 
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Use  Lifestyle  Budgeting  on 
your  personal  computer. 

Since  lifestyle  Budgeting  is  some- 
thing everyone  needs,  versions  are 
available  for  IBM.  Apple,  Commodore. 
Atari  and  Coleeo  personal  computers. 

Get  control  of  your 
money  today! 
Lifestyle  Budgeting  will  be  available 
through  your  local  computer  retailer 
starting  in  February  . . .  but  why  wait? 
You  can  order  the  complete  package 
today. 

Order  now! 

Call  I -800-547- i  5G5, 

In  Ohio  Call  I -5 1 3-435-2335. 

DtaJer  Inquiries  welcomed 


V^  esl  I'd  like  to  know  how  to  set  up  a 
Xllveable  budget. 

Please  lend  me  _ 


.  copies 


of  Ufestylc  Budgeting 
(Including  Ihe  McGraw-Hill 
book  Spending  Less  ami 
Enjoying  It  More,  and  the 
accompanying  software 
and  manuall  at  S49.95 
each  plus  S3  for  shipping 
and  handling.  (In  Ohio  add 
658  sales  tax.) 


Name 


Address 


City 


State 


Zip 


Type  computer  Model 

Chuck  or  money  order  enclosed    D 


VISA  or  MasterCard  No 


Lxpirailon  Date 
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WordPro  3  Plus"764  and  SpellRight  Plus'"  provide  a  total  word 
processing  solution  for  the  Commodore  64""  which  gives  you: 

*  Sophisticated  Word  Processing 

*  Built-in  Mail  Merging  lor  Form  Letters 

*  Math  Functions  for  Column  Totals 

*  Fast  and  Complete  Spell  Checking  via  SpellRight  Plus 

*  A  Super  Value  (two  programs)  for  Only  $99.95! 

WordPro  and  SpellRight  are  both  specifically  designed  for  the 
novice  user  with  no  computer  or  word  processing  experience 
whatsoever.  And  with  over  40,000  WordPro  versions  sold,  you 
can  be  sure  that  WordPro  is  a  very  sophisticated  word 
processor  loaded  with  powerful  features  including:  Transfer, 
Insert,  Delete,  and  Rearrange  Text,  Auto  Page  Numbering.  Math 
Functions,  Headers,  Footers,  Global  Search  and  Replace,  the 
Ability  to  Create  Multiple  Personalized  Letters  and  Documents, 
and  much  more.  WordPro  can  create  documents  of  virtually 
any  length  and  will  print  up  to  165  columns  wide.  You  get  all  of 
this  PLUS  fast  and  complete  spell  checking  using  SpellRight 
Plus! 


SpellRight  Plus  locates  and  highlights  misspelled  words  and 
then  allows  you  to  quickly  correct  the  misspellings  — 
improving  the  quality  of  your  letters  and  reports. 

And,  best  of  all,  WordPro  and  SpellRight's  powerful  arsenal 
of  features  can  be  put  to  use  almost  immediately  —  by  even 
the  novice  user.  So  whether  you're  a  student,  professional 
writer,  in  business,  education  or  a  hobbyist,  you'll  quickly 
become  a  WordPro  Pro! 

Both  WordPro  and  SpellRight  Plus  are  also  available  separately 
at  popular  computer  outlets  nationwide. 

Invest  in  the  best . .  .WordPro  Plus.  In  a  class  by  Itself. 

Professional  Software  Inc. 


51  Fremont  Street 
Needham,  MA  02194 


(617)444-5224 
Telex:  951579 


Dealer  and  Distributor  inquiries  are  invited. 


WordPro  3  Plus'764  and  SpellRight  Plus"  are  trademarks  ol  Professional  Software  Inc 

The  WordPro  Plus  Series  was  doslgnod  and  written  by  Steve  Punter  of  Pro-Micro  Software  Ltd. 

SpellRight  Plus  was  designed  and  written  by  Dwighl  Hull  and  Joe  Spatafora  of  SpellMaster  Systems.  Inc. 

Some  printers  may  not  support  cenaln  WordPro  3  Plus  functions  and/or  require  an  interface.  Please  check  with  your  dealer. 

Commodore  W"  is  a  trademark  of  Commodore  Electronics  Ltd. 


GAZETTE  FEEDBACK 


EDITORS  AND  READERS 


Do  you  have  a  question  or  a  problem?  Have 
you  discovered  something  that  could  help  other 
VIC-20  and  Commodore  64  users?  Do  you  have 
a  comment  about  something  you've  read  in 
computed  gazette?  We  want  to  hear  from  you. 
Write  to  Gazette  Feedback,  compute's  gazette, 
P.O.  Box  5406,  Greensboro,  NC  27403. 

Restoring  DATA 

I  am  writing  an  educational  program  for  my  2Vi- 
year-old,  but  I've  run  into  a  small  problem.  1  want 
to  play  a  short  tune  when  a  correct  answer  is  given, 
but  after  running  the  program  once,  I  get  an  OUT 
OF  DATA  error  message.  My  question  is  this: 
How  do  I  get  the  program  to  reread  DATA  state- 
ments? 

Jeff  Nicholas 

When  miming  a  program,  BASIC  it  sen  memory  loca- 
tions 63-66  as  "data  pointers."  These  pointers  act  as  a 
checklist.  Whenever  the  program  READs  an  item  from 
a  DATA  statement,  it  also  updates  the  pointers.  The 
next  READ  looks  at  the  next  item,  based  on  what  is  in 
the  pointers.  If  there  are  more  READs  than  DATA 
items,  the  computer  prints  the  error  message  and  stops 
the  program. 

In  answer  to  your  question,  the  pointers  can  easily 
be  reset  with  the  RESTORE  command.  This  command 
can  be  placed  anywhere  within  a  BASIC  program,  and 
will  reset  the  pointers  to  the  beginning  of  the  DATA 
items.  For  example,  the  following  BASIC  program 
would  continuously  READ  the  first  DATA  number 
and  never  get  to  the  second. 

10  READ  A:  PRINT  A:  RESTORE:  GOTO  10 
20  DATA  1,  2,  3 

Another  command,  more  drastic  than  RESTORE, 
is  CLR.  When  a  BASIC  program  sees  CLR,  it  resets  the 
data  pointers  (so  you  can  READ  the  DATA  statements 
again)  and  all  variables  are  CLeaRed.  Numeric  variables 
are  set  to  zero  and  string  variables  are  erased.  It  also 
clears  the  variables  and  pointers  for  FOR/NEXT  loops 
and  GOSUBlRETURNs. 

In  addition,  anytime  you  LOAD,  RUN,  or  NEW 
a  program,  the  data  pointers  are  automatically  reset. 
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Bad  Disk  Saves 

I  have  a  Commodore  64  with  a  1541  disk  drive, 
and  have  encountered  a  problem  that  perhaps 
you  can  help  with.  When  saving  and  replacing 
programs  on  disk,  sometimes  certain  programs 
will  replace  the  wrong  programs  on  disk.  For  in- 
stance, I  SAVEd  a  program  using  the  save  with 
replace  command,  following  the  procedures  in  the 
1541  instruction  manual.  The  program  SAVEd 
OK,  but  it  messed  up  another  unrelated  program 
on  the  disk.  Is  there  anything  I  can  do  to  solve 
this  problem  other  than  always  maintaining  a 
backup  disk?  What's  to  stop  the  same  thing  hap- 
pening to  the  backup  disk? 

Davin  Dahlgren 

We  have  covered  this  problem  before,  but  because  we 
still  receive  a  large  volume  of  mail  about  this  bug,  it's 
worth  covering  again. 

Creating  a  backup  disk  is  not  the  solution  to  your 
bad  saves.  The  problem  is  with  the  save  with  replace 
(SAVE  "(q;0:filename")  command  itself;  it  is  sometimes 
prone  to  error.  This  problem  has  popped  up  in  Commo- 
dore disk  drives  throughout  the  years.  Although  the 
1540s  and  1541s  were  supposed  to  have  an  updated 
DOS  that  solved  this  problem,  it  apparently  still  exists. 

The  answer  to  your  question  is  simple:  Don't  use 
the  save  with  replace  command.  We  recommend  you 
either  scratch  (PR1NT#15,  "S0:filename")  the  old 
program  before  SAVEing,  or  SAVE  the  progra?n  using 
a  different  filename. 

Colorful  Sprites 

1  recently  purchased  a  Commodore  64.  I  have 
read  the  book  which  comes  with  the  computer.  In 
the  chapter  that  deals  with  sprites,  it  doesn't  men- 
tion how  to  change  the  colors  of  the  sprites.  Can 
you  tell  me  how? 

I  would  also  like  to  know  how  to  tell  if  two 
sprites  collide. 

Glenn  Yellico 

The  memory  locations  you  POKE  to  change  the  colors 
of  sprites  0  through  7  are  addresses  53287  to  53294. 
The  POKE  values  to  change  colors  are  0  through  15, 


What  do  voice 
synthesizers  have 
in  common  with 
movies? 

They  don't  make 
them  like  they 
used  to. 

Because  now 
there  is  SAM.  The 
Software  Automatic  Mouth'" 
The  first  software-only  speech 
synthesizer  for  Commodore  64, 
Atari  and  Apple  computers. 

Developed  by  Mark  Barton 
of  Don't  Ask  Software,  SAM. 
is  designed  to  give  you  all 
the  power  of  conventional 


hardware  speech 
devices.  Without 
the  hardware. 

And  without  the 
high  price. 

S.A.M.  is  the 
program  that 
makes  other  pro- 
grams talk.  Busi- 
ness programs.  Educational 
programs.  Recreational  pro- 
grams, too. 

You  can  use  it  In  any  num- 
ber of  useful  ways. 

To  write  instructions  that  talk. 
Stories  that  tell  themselves. 
And  creative  new  games  with 


characters  that  converse  or 
opponents  that  crack  jokes. 

And  you  can  do  it  all  with 
ease.  With  phonetic  or  plain 
English  input. 

S.A.M.  can  say  anything  you 
like,  any  way  you  like— you 
choose  the  pitch,  tone,  speed 
and  inflection. 

If  you  want,  you  can  even 
choose  the  voice. 

Here's  talking  to  you,  kid. 
(The  Apple  version  includes  an 
8-bit  digital-to-analog  converter 
and  audio  amplifier  on  a  card. 
It  requires  48K  and  a  speaker. 
The  Atari  version  requires  32K.) 


Say  it  again,  S.A, 


eveloped  by  Don't  Ask  Computer  Software,  Inc. 
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corresponding  to  the  16  colors  available  on  the  64.  Below 
you'll  find  a  chart  of  some  of  the  more  useful  sprite 
control  memory  locations. 

Sprite  collision  is  defined  by  the  Programmer's 
Reference  Guide  as  occurring  "...  when  a  non-zero 
part  of  a  sprite  overlaps  a  non-zero  portion  of  another 
sprite  or  characters  on  the  screen."  The  byte  you  PEEK 
to  detect  a  sprite-to-sprite  collision  is  53278.  For  a  sprit  e- 
to-background  collision,  PEEK  53279. 

These  bytes  normally  have  a  value  of  zero.  The 
eight  bits  in  these  memory  locations  correspond  to  the 
eight  sprites.  When  a  collision  is  detected,  the  corre- 
sponding bit  is  set  to  1.  The  bits  will  remain  set  until  the 
bytes  are  PEEKed.  Once  PEEKed,  the  bytes  are  auto- 
matically reset  to  zero.  It  should  also  be  noted  that  sprite 
collisions  can  occur  even  if  the  sprite  is  off  the  screen . 

Function  Location(s) 


turn  on  sprite 

53269 

sprite  data  pointers 

2040-2047 

sprite  color 

53287-53294 

expand  sprite  X 

53277 

expand  sprite  Y 

53271 

htm  on  multicolor 

53276 

multicolor  one 

53255 

multicolor  two 

532S6 

sprite/sprite  collision 

53278 

sprite/data collision 

53279 

For  more  information  on  sprite  programming  and 
what  values  to  POKE  into  the  above  locations,  consult 
your  Programmer's  Reference  Guide. 

MLX  Techniques 

I  used  MLX  to  enter  a  machine  language  pro  gram 
from  COMPUTE!'* G AZOTE,  but  I  entered  the  wrong 
ending  address.  When  MLX  reached  that  address, 
it  turned  off  and  I  could  not  add  any  more  lines 
to  the  program.  How  can  I  finish  my  program? 
Is  there  any  way  1  can  LIST  an  ML  program  from 
MLX? 

Roger  C.  Fitch 

When  machine  language  programs  are  published  in 
COMPUTED  GAZETTE:,  the  MEX  program  can  be  found 
in  the  listings  section.  The  short  explanatory  article 
about  MLX  (usually  found  in  the  gray  pages  preceding 
the  program  listings)  is  very  helpful. 

In  addition  to  its  main  function  of  entering  machine 
language  programs,  MLX  recognizes  four  commands: 

SHIFT-S  (Save)  will  save  a  copy  of  the  machine 
language  program  to  tape  or  disk. 

SH1FT-L  (Load)  will  load  a  previously  saved 
program. 

SHIFT-D  (Display)  wilt  display  the  machine  lan- 
guage program  currently  in  memory.  This  is  the  equiv- 
alent of  BASIC'S  LIST.' 

SH1FT-N  (New  Address)  allows  you  to  begin 
typing  at  a  different  address.  The  addresses  appear  as 
line  numbers  in  the  MLX  listing. 

If  you  entered  the  wrong  ending  address,  use 
SHIFTS  to  save  what  you've  typed,  then  reRUN  the 
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MEX  program,  entering  the  correct  starting  and  ending 
addresses.  You  can  then  use  SHIFT -L  to  load  what 
you've  already  typed.  To  continue  with  the  listing,  use 
SH1FT-N  to  skip  ahead  to  the  line  number  where  you 
need  to  start.  Be  sure  to  read  the  MLX  article  in  this 
issue  for  more  details. 

Musical  Power  Supplies 

I  own  a  Commodore  64,  and  I  have  a  question 
about  the  power  supply.  When  I  plug  it  in,  it  starts 
to  hum.  The  humming  noise  seems  to  get  lower 
the  longer  the  machine  is  on.  Is  this  something  I 
should  be  worried  about?  Could  you  please  ex- 
plain the  noise? 

Todd  Blecher 

According  to  a  representative  at  Commodore,  this  is 
nothing  to  be  concerned  about  with  either  the  ViC-20  or 
the  64.  It  is  quite  common  for  small  transformers  such 
as  the  one  inside  your  power  supply  to  hum.  This  is 
caused  by  the  metal  plates  in  the  transformer  vibrating 
as  the  60  cycle  per  second  electric  current  passes  through 
it.  You've  probably  heard  the  same  hum  from  the  trans- 
formers in  fluorescent  lights. 

The  thing  to  watch  out  for  in  all  power  supplies  is 
heat.  If  your  power  supply  is  operating  at  an  excessively 
high  temperature,  take  it  back  to  your  dealer  and  have  it 
checked. 

Heat,  Humidity,  And  The 
Computer 

I  recently  purchased  a  Commodore  64,  and  I  have 
two  questions.  First,  I'd  like  to  put  the  computer 
downstairs  where  I  have  room  for  it,  but  in  the 
summer  it  gets  very  muggy  and  damp  down  there. 
Is  this  atmosphere  bad  for  a  computer?  Second, 
can  I  use  my  own  tape  recorder  with  my  64  or  do 
I  have  to  buy  the  Commodore  Datassette? 

Robert  Zarriello 

Environment  can  be  an  important  factor  for  your  com- 
puter. The  moist  atmosphere  you  describe  could  be 
harmful.  If  the  humidity  is  so  high  that  water  condenses 
in  the  computer  casing,  it  could  result  in  permanent 
damage. 

Extremes  of  heat  and  humidity  are  also  enemies  of 
tapes  and  disks.  A  program  saved  on  a  hot  day  when 
the  tape  or  disk  is  very  flexible  might  not  load  properly 
on  a  cold  day  when  the  plastic  material  used  in  tapes 
and  disks  is  much  stiffer. 

Another  thing  to  watch  out  for  is  ventilation.  The 
computer  and  its  peripherals  should  be  in  a  place  where 
they  are  well  ventilated  and  can  be  kept  cool.  Also, 
xoatch  out  for  rooms  that  are  heavily  carpeted ,  especially 
those  with  wool  carpets.  The  static  electricity  created  as 
you  shuffle  across  the  room  could  bring  the  computer 
down  (lock  it  up),  or  it  might  even  permanently  damage 
the  chips  in  the  computer,  or  erase  data  stored  on  mag- 
netic media. 
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Now  that  you  hove  ir.  pur  it  to  w 
TUTOR  puts  you  in  charge  with  o  Commodore 
64  rutoriol,  screen  disploy  editor,  sprite  editor, 
music  synthesizer  &  programmer's  calculator. 

Use  rhe  tutorial  to  teotn  what  your 
Commodore  64  can  do.  And  how  to  do  it. 
Create,  edit  &  save  one  page  of  letters 
and/or  pictures  with  rhe  screen  display  editor. 
Entet  sprites  from  the  Commodore  Monuol. 
Or  make  upyout  own.  Then  edir  and  save 
them  using  the  sprite  ediror.  Sprite  creorion  is 
quick,  ond  easy.  Play  music  with  the  music 
synthesizer.  Use  rhe  programmer's  calculator 
ro  add,  subtract,  multiply  £>  divide  in  decimal, 
hexadecimal  and  binary.  Includes  AND.  OR. 
XOR.  Shift  and  1'scomplemenr  functions. 


Great  for  new  users,  C64  TUTOR  cures 
computerphobia  and  promotes  computer 
literacy. 

Take  it  from  me.  with  a  little  power,  the 
possibilities  ore  endless. 

Available  for  $29,95  of  your  computer 
deoler. 

Comprehensive  Software  Support, 

23l6AnesioDi.  Suite  B,  >• — 

Redondo  Deoch  CA  90273        Ik , 


Yes,  you  can  use  a  standard  tape  cassette  recorder 
with  the  64  ami  the  VIC-20,  but  you  will  need  a  special 
interface  not  made  by  Commodore.  You  can  expect  to 
pay  between  $20  and  $30.  Contact  your  local  computer 
equipment  dealer  for  information  on  the  available 
interfaces. 

However,  we  believe  that  the  Datassette  is  a  very 
durable  and  reliable  recorder. 

Crunching  To  Save  Memory 

Occasionally,  when  I  am  writings  program,  1 
abbreviate  BASIC  keywords.  However,  when  1 
list  the  program  on  my  VIC-20,  all  the  keywords 
are  displayed  full  length,  and  I  can't  remember 
which  ones  I've  abbreviated  and  which  ones  1 
haven't.  Is  there  some  technique  by  which  I  may 
disable  this  and  crunch  my  programs  faster? 

Ted  Targosz 

Your  programs  are  crunched.  BASIC  command 
keywords  are  stored  internally  as  one-byte  tokens. 
Whether  you  enter  them  in  the  "crunched"  form  (for 
example,  ?  for  PRINT)  or  type  in  the  full  word  version, 
the  machine  still  uses  a  one-byte  token. 

When  you  eider  a  line  in  the  crunched  form  then 
LIST  the  program,  it  will  print  the  whole  BASIC 
keyword.  This  is  simply  a  convenience  of  the  screen 
editor,  anil  does  not  use  any  additional  memory. 

For  example,  turn  off  your  VIC  or  64,  turn  it  back 


WANTED! 

SOFTWARE  AUTHORS 


Broderbund  Software  is  looking  for 
new  authors— both  in-house  and  free- 
lancers—to join  its  international  teanr  of  pro- 
gramming wizards.  If  yon  have  an  original, 
machine  language  entertainment  product  for 
the  home  micro  market,  lei  us  show  you  the 
advantages  of  working  with  our  team  of  de- 
sign, production  and  distribution  specialists. 

Call  or  write  for  a  free  Author's  Kit  or  send 
us  a  machine  readable  copy  of  your  work  for 
prompt  review  under  strictest  confidence. 
You  have  nothing  to  lose  and  perhaps  a  great 
deal  lo  gain. 


^Broderbund  Software 

17  Paul  Drive,  San  Rafael.  CA  94903,  Tel: (4 15)  479-1170 


on,  then  enter  the  following  BASIC  line: 

10  PRINT  "ABC" 

Noiv  type  PRINT  FREW)  (this  is  the  command 
that  tells  you  how  much  unused  BASIC  memory  is 
left),  jot  down  this  number,  then  turn  your  machine  off 
and  on  again. 

Now  enter  the  same  BASIC  program  in  the  fol- 
lowing crunched  form: 

10  ?"ABC" 

Again,  type  and  enter  PRINT  FREW).  You'll  now 
see  that  the  amount  of  memory  left  is  the  same,  even  in 
the  crunched  form. 

For  even  more  proof,  LIST  the  program.  The  BASIC 
line  is  now  uncrunched.  Again  enter  PRINT  FREW). 
The  amount  of  unused  memory  still  has  not  changed. 

If  you're  looking  for  -ways  to  make  your  BASIC 
programs  use  less  memory,  there  are  many.  The  most 
common  and  most  useful  is  to  simply  get  rid  of  unneeded 
spaces  within  the  BASIC  program  lines.  But  don't 
worry  about  those  BASIC  command  keywords;  they  use 
up  only  one  byte  no  matter  which  way  you  enter  them 
initially. 

Using  An  8-Pin  Plug  With  The  64 

I  have  a  question  concerning  the  Commodore  64. 
In  your  article  on  improving  the  TV  quality  on  the 
64,  all  of  the  information  refers  to  the  5-pin  plug 
on  the  back.  I  have  one  of  the  new  models  with 
the  new  8-pin  plugs,  and  have  yet  to  see  a  pinout 
diagram  for  it.  I  would  like  to  make  the  changes 
indicated  in  the  article,  but  I  don't  know  which 
pins  do  what.  Can  you  help? 

Mark  Poole 

Here  is  a  list  of  the  eight  pin  connections  on  the  new 
Commodore  64s,  and  what  they  do: 

Pin      Purpose 

1  LUMINANCE  mime  as  5-pin 

2  GROUND  same  as  5-pin 

3  AUDIO  OUT  same  as  5-pin 

4  COMPOSITE  VIDEO  same  as  5-pin 

5  A  L1DIQ  IN  same  as  5-pin 

6  CHROMINANCE  without  luminance 

7  UNUSED 

8  CHROMINANCE  without  luminance 

Disk  Drive  Solution  Update 

In  December's  "Gazette  Feedback,"  we  printed  a 
letter  from  Sieg  Deleu,  president  of  Kobetek  Sys- 
tems Limited,  stating  that  his  firm  had  the  ROM 
kits  for  converting  the  1540  disk  drive  to  a  1541. 
Several  readers  have  written  asking  for  Kobetek's 
address.  Here  it  is: 

Kobetek  S\/steins  Limited 

1113  Commercial  St. 

New  Minns 

Nova  Scotia 

B4N3F.6 

Canada  ® 
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(or  are  thinking  of  owning  one) 


-  be  sure  that  you  also  get  a  Calc  Result 

Calc  Result  is  the  worlds  most  cost  effective  spread  sheet 
for  the  worlds  most  cost  effective  computer-The  Commodore  64^ 

Calc  Result  at  home 

Use  it  for  loans  and  mortgages,  home  budget  and  cash  flow,  stock  portfolio,  personal  net  worth,  IRA 
analysis,  travel  expenses,  gas  and  electricity  bills,  bar  charts  and  many  more  areas. 

In  business 

Use  it  for  budgets,  calculation,  simulation,  construction,  planning  etc.  Used  by  managers,  salesmen, 
scientists,  doctors,  lawyers,  dentists,  consultants,  accountants... 

There  are  two  versions 
of  Calc  Result 

Choose  the  one  that  is  most  suitable  for  you. 


Calc  Result  Easy 

Single  page  spreadsheet  (64  columns  x  254  rows). 
Bui II  in  graphics.  Formula  protection,  flexible  printout, 
color,  conditional  (unctions  and  mathematical  functions. 
Delivered  on  plug-In  cartridge.  Data  storage  on  cassette 
or  disk. 


Calc  Result  Advanced 

All  functions  in  Calc  Result  Easy  plus  32  pages  (Three- 
dimensional  viewing).  Page  add,  window, 
split  screen  (up  to  tour  pages  on  the 
screen  at  the  same  time),  and  flf 

help  functions.  Delivered  on       y> 
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plug-in  cartridge  plus  disk. 

Requires  disk  drive. 
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Get  your  Calc  Result  today!  Buy  it 
at  your  nearest  computer  dealer. 

Commodore  64  is  a  trademark  of  Commodore  Business  Machines. 
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.  .  ^  Fellowship  Business  Center, 
I  Fellowship  Rd.  B-206, 
Mt.  Laurel,  New  Jersey  08054 


for  families 


Computer  Show  And  Tell 


Fred  D'lgnazio,  Associate  Editor 


In  a  recent  issue  of  COMPUTE!  (October  1983),  I 
wrote  about  educational  computing  at  home  and  at 
school  as  isolated  "islands"  of  computer  learning. 
I  expressed  the  fear  that  unless  bridges  were  built 
between  these  islands,  much  of  the  computer's 
educational  potential  would  never  be  realized. 

In  the  article,  I  suggested  some  home-school 
bridges  that  Kenneth  Komosky  (Educational 
Director  of  the  Educational  Products  Information 
Exchange — EPIE)  and  I  had  come  up  with, 
including: 

•  Community-wide  training  of  parents, 
teachers,  and  children. 

•  Community-wide  computer  cooperatives 
in  which  computer  vendors  work  with  schools 
and  families  to  disseminate  information  about 
computers  and  offer  discounts  to  families 
(especially  low-income  families). 

•  Communication — A  Parents  and  Teachers 
Computer  Association  could  be  formed.  It 
could  hold  monthly  meetings  and  publish  a 
monthly  newsletter  that  evaluates  new  com- 
puter products  and  educational  software, 
and  spreads  the  word  about  educational 
computing  activities  going  on  in  homes,  class- 
rooms, and  libraries  in  the  community. 

•  Opportunities  for  Action — The  community 
could  organize  computer  faires,  computer 
flea  markets,  and  "brag  nights"  to  show  what 
the  kids  are  doing  with  computers  at  home 
and  at  school. 

•"Sharing — The  community  could  begin  col- 
lecting old  computers  and  software  and  set 
up  a  "computer  library"  (perhaps  as  a  section 
of  the  public  or  school  library).  The  library 
could  keep  review  materials  on  the  latest 
hardware  and  software;  it  could  help  increase 
the  ratio  of  computers  to  kids  in  school;  and 
it  could  make  computers  available  for  low- 
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income  members  of  the  community.  A  library 
could  serve  an  especially  valuable  purpose 
by  collecting  information  on  the  ways 
computers  can  help  special  children  who  are 
learning  disabled,  or  physically  or  mentally 
handicapped. 

Starting  Simple 

The  program  to  link  home  and  school  computing 
is  extremely  ambitious.  It  is  not  something  that 
can  be  implemented  overnight.  It  is  a  good  idea 
to  start  simple  with  one  or  two  bridge-building 
activities,  then  add  new  activities  gradually.  I 
have  found  this  out  from  personal  experience. 
In  my  hometown,  Roanoke,  Virginia,  I  am 
trying  to  put  some  of  these  ideas  into  practice.  In 
the  last  few  weeks  I  have  learned  that  building 
computer  bridges  between  home  and  school  is  a 
major  undertaking.  All  we  have  set  up,  so  far,  is  a 
swaying,  rickety  footbridge  made  up  of  popsicle 
sticks.  But  it's  a  start. 

A  Warm  Reception 

I  have  a  five-vear-old  son  (Eric)  in  a  local  kinder- 
garten and  an  eight-year-old  daughter  (Catie)  in 
third  grade. 

I  began  my  bridge-building  project  by  calling 
Catie's  teacher,  Mrs.  Albertson,  and  volunteering 
to  loan  the  school  an  extra  computer  we  had  sitting 
around  the  house. 

1  was  nervous  about  calling  Mrs.  Albertson 
and  offering  her  the  computer.  1  was  afraid  that 
she  might  not  want  a  computer  in  her  class.  I  was 
worried  that  she  would  think  1  was  an  uppity 
parent  bent  on  interfering  with  her  teaching. 

I  was  wrong. 

"What  a  terrific  idea!"  Mrs.  Albertson  said 
when  she  heard  my  proposal.  "We'd  love  to  have 
a  computer  in  the  room.  When  can  the  computer 
come  for  a  visit?" 


SUCCESS 
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The  day  you  bring  your  first  CA1™  learning 
game  home  and  watch  your  child  play, 
you'll  know  the  excitement  of  a  winning 
choice. 

Active  Family 

Your  family  and  CAl's  growing  family  of 
animated,  full- color  programs  have  a  lot  to 
share  —beginning  with  a  willingness  to 
reach  beyond  the  ordinary  to  achieve  the 
best. 

At  Your  Command 
You  may  meet  a  princess,  a  juggler  or  a 
dragon  in  Wizard  of  Words.™  You  may 
appear  as  a  guest  on  TV  in  Master  Match,™ 
me  Game  Show™  or  Tic  Tac  Show™  Or, 
you  may  extend  these  programs  still  further 
with  our  LeamingWare™  diskettes,  offering 
hundreds  of  questions  matched  to  the 
teaching  strategies  in  the  games.  In  every 
case,  CAI  puts  a  world  of  imagination  and 
learning  at  your  fingertips.  And  puts  you 
and  your  child  in  control. 
Unique  Approach 

Key  features  place  CAI  thinking  tools  in  a 
class  by  themselves:  Each  program  comes 
with  its  own  library  of  subjects.  But  that's 
just  the  start.  Our  unique  authoring  system 
let's  you  or  your  child  create  your  own 
lessons  on  any  topic,  tailoring  the  program 
to  your  family's  needs  —and  no  computer 
knowledge  is  required.  Add  the  fact  that 
we've  kept  the  vital  ingredient  -FUN-  in 
learning,  and  our  proven  success  is  no 
surprise.  Over  2,000  school  districts  now 
use  CAI  programs  to  teach  essential 
vocabulary  and  logic  skills  in  a  variety  of 
subject  areas. 

CAI  supports  its  products  —and  you  —with 
an  unconditional  guarantee  and  a  free 
backup  disk.  And  provides  compatibility 
with  the  most  popular  computers:  Apple,K 
IBM*  (and  soon  Commodore™). 
Wise  Choice 

CAI  is  a  group  of  experienced  educators 
and  programmers  who  believe  that  success 
begins  with  opportunities  you  create  at 
home.  Ask  to  see  a  demonstration  of  CAI 
programs  at  your  local  computer  store,  and 
see  for  yourself  just  how  rewarding  a  good 
education  can  be. 
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Computer 
Advanced 
Ideas 

Bringing   Ideas 

1442A  Walnut  Street  Suite  341 
Berkeley,  CA  94  709    (41 5}  526-9 7 00 

Appto  ts  a  rvgtsJorod  trademark  of Appfa Computers,  inc.  iBMtsa 
r&gistomd  trademark  of  IBM  Corp.  Commodore  is  a  trademark  of 
Commodore  Business  Machines,  he 
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MusiCalc 


Jhe  Creative Musis System 


MAKE  MUSIC  PLAY 
On  Your  Commodore  64" 

Put  the  MusiCalc  '  diskette  into  your 
Commodore  64.  Sit  down.  And  brace 
yourself. 

You're  about  to  discover  an  entirely 
new  way  to  make  music.  With  Musi- 
Calc, the  creative  music  system  that 
makes  music  play.  Almost  instantly,  the 
whole  family  will  be  able  to  create 
and  perform  all  kinds  of  music.  From 
rock  'n  roll  to  technopop,  from  classical 
to  country  western. 

MusiCalc  makes  music  more  fun, 
more  rewarding  and  easier  than  it's 
ever  been  before. 

NOTEWORTHY  SOFTWARE 

MusiCalc  software  turns  your 
Commodore  64  computer  with  disk 
drive  into  a  sophisticated  musical 
instrument.  And  it  rums  you  into  a 
composer,  performer  and  conductor. 

MusiCalc  l's  Synthesizer  &  Sequen- 
cer is  the  heart  of  the  system.  With  it 
you  can  use  your 
computer  key- 
board to  program 
the  tempo,  key 


and  style  of  music  you  want,  and  also 
to  play  your  favorite  tunc.  The  com- 
puter screen  will  show  you  what  the 
music's  doing  as  you  play  and  how  to 
control  it. 

Start  by  selecting  one  of  MusiCaic's 
preset  scores.  Try  combining  that  with 
a  preset  sound  you  like.  Choose  the 
scale  you  want  to  play  in— anything 
from  jazz  to  Japanese. 

Presto!  You've  got  music. 

Exercise  your  musical  creativity  by 
putting  the  three  voices  together  any 
way  you  want,  and  playing  whichever 
parts  you'd  like.  Make  changes  and 
add  special  flourishes  to  create  your 
own  compositions. 

Even  a  musical  novice  will  sound 
good  right  away.  And  the  greater  your 
musical  talent,  the  more  challenging 
and  exciting  MusiCalc  becomes. 

BACH  TO  BASICS 
Although  simple  to  learn,  MusiCalc 
was  designed  to  meet  the  needs  of  pro- 
fessional musicians. 


In  fact,  it  delivers  the  quality  and 
capabilities  professionals  have  spent 
thousands  of  dollars  for— up  until  now. 
Once  you  have  the  Commodore  64 
computer  and  disk  drive,  you  can  get 
started  for  under  5100  with  the  Musi- 
Calc 1  Synthesizer  &  Sequencer. 
This  is  a  standalone  software 
program  you'll  never  outgrow.  And 
with  the  variety  of  other  MusiCalc 
products  currently  available,  plus  the 
many  more  items  Waveform  will  be 
introducing  in  the  months  ahead,  you 
can  expand  your  music  system  along 
with  your  interest  and  ability. 

THE  MUSICALC  SYSTEM 
MusiCalc  includes  a  full  line  of  soft- 
ware that  brings  great  music  as  close 
as  the  keypad  of  your  Commodore  64. 
MUSICALC  \  Synthesizer  & 
Sequencer  Turns  the  Commodore  64 
into  a  sophisticated  musical  instru- 
ment—a three-voice  synthesizer  and 
fully-interactive  step 
sequencer.  Play  along  with 
a  song  or  write  your  own. 
Develop  your  own  instru- 
ment sounds.  And  record 
the  music  you  create. 


MU5ICALC  2,  ScoreWriter "  Works 
with  the  Synthesizer  &  Sequencer 
to  change  your  musical  improvisations 
into  musical  notation,  With  the  addi- 
tion of  an  optional    ■    graphics  printer 
you  can      v, .■/,  turn  your 


own  original  compositions  into  sheet 
music.  Requires  MusiCalc  1  to  operate. 
MUSICALC  3,  Keyboard  Maker" 
Enables  you  to  create  your  own  custom 
musical  keyboards.  Comes  with  over 
30  preset  keyboard  scales  from  around 
the  world— everything  from  classical 
to  rock.  Requires  MusiCalc  1  to  operate. 
MUSICALC  TEMPLATE  1,  African 
and  Latin  Rhythms  Add  this  to  the 
MusiCalc  I  system  and  it  provides 
additional  musical  scores  and  patches 
you  can  play  along  with  or  use  to 
develop  your  own  compositions. 
Requires  MusiCalc  1  to  operate. 


MUSICALC  TEMPLATE  2,  New 
Wave  and  Rock  Works  like  Template  1 
and  features  the  latest  Technopop  scores 
and  sounds.  Requires  MusiCalc  1 
to  operate. 

MUSICALC 
PROFESSIONAL  SYSTEM 

J^  The  M  u  s  iCa  1  c  Syn  thesize  r  &. 
Sequencer,  ScoreWriter, 
and  Keyboard  Maker,  plus 
the  two  Templates,  in  one 
cost-saving  package. 
HIT  DISKS  Recordings  to 
play  on  your  computer. 
Original  Technopop  com- 
positions, current  hits  and 
old  standards  performed  by 
the  Waveform  Band.  Ask 
your  dealer  about  current 
releases. 
COLORTONE  KEYBOARD  AND 
MUSICALC  4  A  totally  new  concept  in 
keyboards,  ideal  for  everyone  from 
novice  to  professional.  A  professional 
quality  keyboard  that's  remarkably  easy 
to  learn  how  to  use.  The  keyboard  comes 
with  special  software  that  allows  it  to 
work  with  MusiCalc  1  and  2,  enabling 
you  to  play  music  on  the  keyboard 
and  record  it  on  disk  to  play  back  or 
print  out  later.  Add  MusiCalc  4  and  play 
any  scale  in  any  key,  for  even  greater 
musical  capability.  Available  soon. 


DEMO  DISK  An  entertaining  and  infor- 
mative demonstration  of  the  capabilities, 
features  and  uses  of  the  entire  MusiCalc 
System.  Also  available  in  tape  cassette. 

MAKE  MUSIC  PLAY 
MusiCalc  will  make  music  come 
ilive  for  the  entire  family.  It's  a  fun  and 
educational  way  to  introduce  your 
children  to  music  and  computers.  And 
no  matter  what  your  background,  you'll 
find  yourself  playing  and  understanding 
music  in  an  exciting  new  way. 

Ask  your  computer  or  music  dealer 
about  MusiCalc.  Or  send  in  the  attached 
coupon  and  $5  for  the  MusiCalc  Demo 
Disk  or  cassette.  Discover  MusiCalc, 
the  creative  music  system. 


CORPORAT    ION 
MUSIC   PRODUCTS  DIVISION 

MAKING  MUSIC  PLAY 

1912  Bonita  Way,  Berkeley,  CA  947Q4 
(415)  841-9866 

All  Rflhts  Reserved  c  1983  wa¥0lorm  Corporation 
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I  told  Mrs.  Aibertson  that  we  didn't  have  a 
TV  set  or  monitor  for  the  computer.  She  would 
have  to  scavenge  one  somewhere.  Also,  I  told  her 
that  the  class  would  need  a  table  for  the  computer 
and  a  six-foot-square  space  in  the  room  next  to  an 
electrical  outlet.  Mrs.  Aibertson  said  she'd  talk 
to  the  lower-school  principal  and  see  what  she 
could  do. 

The  Project  Grows 

Two  weeks  later,  Mrs.  Aibertson  called  and  told 
me  that  she  had  talked  with  the  lower-school 
principal,  the  headmaster  of  the  whole  school, 
and  the  head  of  student  government.  Everyone 
had  gone  looking  for  funds  and  had  put  together 
enough  money  to  enable  Mrs.  Aibertson  to  buy  a 
new  20- inch  color  TV  for  the  computer. 

After  hearing  about  the  TV,  I  didn't  even  ask 
about  the  table,  the  space,  and  the  electric  outlet. 
I  was  sure  that  they,  too,  had  been  taken  care  of. 
When  I  visited  the  classroom  a  week  later,  1  found 
they  had. 

Mrs.  Aibertson  said  that  everyone  at  the 
school  was  excited  about  the  project  because  they 
hoped  that  the  computer  could  become  a  resource 
for  the  entire  third  grade,  and,  secondarily,  for 
the  whole  lower  school.  It  was  to  be  the  first  com- 
puter for  kindergarten  through  grade  three. 

Enlisting  The  Local  Computer 
Store 

I  was  so  encouraged  by  the  school's  response  that 
I  drove  over  to  the  local  computer  store  and  pro- 
posed that  they  get  involved,  too.  I  showed  them 
my  "Islands  Of  Learning"  article  in  COMPUTE!, 
and  I  asked  them  what  they  would  like  to  contrib- 
ute to  our  bridge-building  project. 

The  computer  store  owners'  response  was 
amazing.  They  said  they  would  be  happy  to 
donate  two  disk-based  computers  to  the  school 
for  a  trial,  two-month  period.  They  also  offered  a 
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discount  on  all  computers  purchased  by  parents 
if  the  school  handled  the  purchases. 

I  volunteered  to  act  as  educational  software 
consultant  to  the  store  and  to  tell  the  store  owners 
about  the  most  popular  programs  that  we  used 
over  at  the  school.  We  would  test  the  programs 
in  school,  then  let  the  store  know  which  ones 
were  best. 

Where  Should  The 
Computers  Go? 

1  spent  the  next  few  nights  on  the  phone  with 
Mrs.  Aibertson  and  with  Eric's  two  teachers,  Mrs. 
Paitsell  and  Mrs.  Carling. 

I  proposed  that  the  second  computer  go  into 
Eric's  kindergarten  class.  That  would  make  com- 
puters available  in  the  kindergarten  and  third 
grades.  The  first  and  second  graders  could  try  out 
the  programs  that  would  be  running  on  the  third- 
grade  computer.  Their  teachers  could  also  take 
them  to  the  kindergarten  and  let  them  try  the 
programs  for  voungcr  children  that  would  be 
running  on  the  kindergarten  computer. 

I  liked  this  approach  because  we  could  exper- 
iment with  using  the  computer  at  two  distinct 
developmental  levels.  It  would  be  interesting  to 
see  what  programs  would  work  best  with  the 
different  age  groups. 

A  Sneak  Preview 

Catie  and  Eric's  teachers  felt  that  I  should  bring  a 
computer  to  the  school  for  a  visit  before  we  per- 
manently installed  the  computers  in  the  class- 
rooms. Mrs,  Aibertson  had  a  table,  a  space,  an 
electrical  outlet,  and  a  big  color  TV,  so  we  used 
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An  educational  ad 
about  educational  software. 


Yf  ou  studied  all  the  computers 
and  finally  chose  the  one  your 
family  found  most  useful.  One 
of  the  main  reasons  you  wanted 
a  computer  in  the  first  place  is  to  help 
your  children  in  school.  Not  just  to 
teach  them  how  to  use  a  computer, 
but  also  to  help  them  get  good  grades 
in  basic  school  subjects  like  reading 
or  geography. 

That's  why  you  should  know 
about  AEC,  American  Educational 
Computer  -  one  of  die  country's 
most  important  developers  and 
publishers  of  educational  software. 
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AEC  grew  up  on  education. 

The  management  of  AEC  started  in 
educational  publishing,  with  collec- 
tively over  100  years  of  experience 
in  the  field.  AEC  knows  curriculum 
and  how  American  education  is 
practiced  in  the  classroom. 
That's  important  because 
children  should  learn  at 
home  the  same  way  they 
learn  at  school.  Other- 
wise, you'll  have  a  very 
confused  child,  and  con- 
fusion  is  not  the  way 
to  better  grades  or 
better  learning. 


AEC  knows  that 
good  grades  are  important. 

Any  educational  software  could  help 
school  performance  in  some  way. 
That's  because  die  computer  is  such 
a  patient  teacher,  giving  instant  feed- 
back to  questions  and  allowing  chil- 
dren to  learn  at  their  own  pace. 

But  AEC  software  has  an  impor- 
tant advantage.  Our  approach  has 
been  student  tested  under  actual 
classroom  conditions.  So  we  know 
it  keeps  die  child's  interest  while  it 
teaches. 

AEC  gets  parents  involved  in 
the  learning  process. 


With  either  AEC's 
MATCHMAKER'"or 
EASYREADER"  Series, 

you  can  take  your 
child  through  the  grades 
in  subjects  such  as 
Phonics,  Word  Attack 
Skills,  Reading  Com- 
prehension, Spanish, 
World  or  US  Geogra- 
phy, and  Grammar.  Our 
teacher  tested  system 


allows  parents  to  enter  material  into 
a  lively,  interactive  format.  And  be- 
cause AEC's  programs  arc  grade- 
level  oriented,  you  can  help  your 
child  all  the  way  through  school. 

AEC  doesn't  play  games 
with  education. 

AEC  programs  do  contain  games,  but 
only  as  rewards  for  learning  achieve- 
ment. For  example,  once  your  child 
successfully  completes  the  objective 
in  the  Matchmaker  Geography  pro- 
gramme or  she  can  play  an  exciting, 
action-packed 
game. 


Sure,  the  games  are  fun.  But 
they're  not  the  basis,  and  certainly 
not  the  primary  focus,  of  any  AEC 
software.  Our  focus  is  stricdy  on 
learning.  And  isn't  that  what  you 
buy  educational  software  for? 
If  you  have  more  questions  about 
educational  software, 
contact  your  nearest 
AEC  educational  soft- 
ware center.  And 
thanks  for  being  a 
concerned  parent 


American  Educational  Computers 


2450  Embarcadero  Way,  Palo  Alto,  CA  94303 


All  ALC  Products  arc  cumpaiibk:  wuh  Apple-  IIVM  •  PC.  Atari  BIX),'  TRS  MP-  Ciilur  and  CunnmiJuic  f,i"  MicftiuumjnjKn  TM  Mfiqiht.  inanulatmrcrt  trademark.  ®  itfinihci.  iiwnulacruirrS  npMcrcJ  trademark. 


I  selected  Catie  and  Eric's  best  educational 
programs  to  show  off  at  school.  I  drove  to  the 
computer  store  and  picked  up  a  computer  like  the 
two  that  would  be  donated  to  the  school.  Then  I 
drove  to  the  school. 

Foiled  By  Murphy's  Law 

I  got  to  the  school  half  an  hour  early  so  that  I  would 
have  plenty  of  time  to  set  up  the  computer.  I 
lugged  the  computer  into  the  classroom  and 
started  plugging  in  cables  and  cords.  When  I  was 
done  1  turned  on  the  computer  and  the  TV. 

Nothing  happened.  The  TV  screen  was  filled 
with  static. 

1  fiddled  with  the  channel  selector.  1 
checked  all  the  connections.  I 
took  everything  apart  and 
plugged  it  back  in. 

Still  nothing. 

I  turned  around  to  face  the 
class.  I  was  going  to  tell  the  kids 
about  finicky  computers  and 
Murphy's  law.  At  the  rear  of  the  room 
I  spotted  about  eight  adults.  While 
mv  back  had  been  turned,  the  school 
principal  and  several  teachers  had 
slipped  into  the  room  for  the 
demonstration.  Instead  of  a  demonstration  all 
they  got  to  see  was  me  fussing  and  fuming 
at  the  dumb  computer. 

I  was  so  embarrassed.  There  I  was,  a  computer 
expert,  and  I  couldn't  even  get  a  picture  on  the 
display  screen. 

I  was  of  raid  to  look  at  my  two  kids'  faces.  I 
knew  what  they  must  have  been  thinking:  If 
daddy's  going  to  humiliate  us  this  way  in  front  of 
our  teachers  and  friends,  it  looks  like  it's  time  to 
put  him  up  for  adoption. 

Culture  Shock 

After  a  desperate  phone  call  and  a  whirlwind  trip 
back  to  the  computer  store  for  extra  parts,  1  finally 
got  the  computer  to  work.  Once  it  decided  to  work, 
the  computer  didn't  embarrass  me  any  further.  It 
behaved  itself  the  rest  of  (he  afternoon. 

I  finally  relaxed,  I  popped  disks  into  the 
disk  drive  and  started  showing  off  some  of  Catie 
and  Eric's  favorite  programs— DWfrt  Drawing 
(from  Spinnaker),  KoalaPainler  on  the  Koala  Pad 
(from  Koala  Technologies),  Rocky 's  Boots  (from 
The  Learning  Company),  Early  Music  (from 
Counterpoint  Software),  Math  Maze  {from  Design- 
Ware),  and  Bank  Street  Writer  (from  Scholastic  and 
Broderbund). 

I  put  the  disks  into  the  computer,  and  Catie 
and  Eric  demonstrated  the  programs. 

We  whisked  through  the  programs  at  high 
speed.  I  was  hoping  to  show  about  20  programs 
in  two  hours.  The  kids  in  the  class  were  "oohing" 
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and  "aaahing"  appreciatively.  Everything  was 
going  smoothly. 

Then  I  ran  into  a  brick  wall. 

"Those  programs  are  all  very  impressive,"  a 
teacher  called  from  the  back  of  the  room  (the  very 
back  of  the  room).  "But  they  are  obviously  in- 
tended for  older  children.  Don't  you  have  any- 
thing for  the  children  in  this  room  and  for  our 
kindergartners?" 

Whoops  .... 

I  didn't  know  how  to  answer  her.  I  wanted  to 
be  flip  and  say,  "Dear  lady,  both  of  my  children 
use  these  programs  without  any  supervision.  Eric 
has  been  using  some  of  these  programs  since  he 
was  only  two  years  old." 

1  wanted  to  say  that,  but  I  didn't.  It  had  begun 
to  dawn  on  me  that  the  computer  programs  I  was 
demonstrating  may  have  looked  like  fun  to  me  and 
the  kids,  but  to  the  teachers  they  looked  like  a  cram 
course  in  calculus  or  electrical  engineering. 

The  teacher  who  had  spoken  walked  up  to 
the  front  of  the  room.  She  pointed  to  the  display 
screen.  The  menu  to  KoalaPainler  was  on  the 
screen.  "There  must  be  dozens  of  different  options 
on  this  screen,"  she  said.  "How  can  we  teach  our 
kindergartners  to  operate  a  program  that  is  this 
complex?" 

I  explained  to  the  teacher  that  little  kids  didn't 
think  the  program  was  complex.  Eric,  for  example, 
pretended  that  the  menu  boxes  were  "doors."  He 


"The  Home  Accountant 
even  flags  transactions  for  tax  time. 

And  that's  a  big  lime-saver 
because  I  can  transfer  information 


*  Popular  Computing,  November,  1982 
(Apple  Softalk, April,  19S2 


Everyone's  talking  about  The  Home  Accountant 


Is  it  because  it's  the  #1  bestselling 
home  finance  package  in  the  world?  Or 
because  it's  extremely  thorough  and 
powerful  and  easy  to  use?  Or  because 
it's  great  for  home  and  business  use? 
Or  because  it  has  up  to  200  budget 
categories  and  handles  up  to  5 
checking  accounts? 

Yes.  But  there  are  a  lot  more  reasons 
why  people  buy  The  I  tome  Accountant. 
And  why  you  will,  too. 

Because  The  Home  Accountant  can 
literally  save  you  hours  of  time.  And 
take  the  headache  out  of  handling  your 
finances.  Wh ether  it's  setting  up  a  budget, 
cataloging  your  expenses,  balancing 
your  checkbooks  or  handling  your 
credit  cards  and  money  market  funds. 
For  personal  or  business  use. 
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The  Home  Accountant  will  even 
print  net  worth  and  financial  state- 
ments. Not  to  mention  being  a  lifesaver 
at  tax  time,  Especially  when  you're  able 
to  transfer  information  onto  Continen- 
tal's The  Tax  Advantage'"  program  and 
figure  out  what  you  owe.  Quickly. 

In  short,  The  Home  Accountant  is  the 
most  effective  software  program  there 
is  for  managing  your  money.  And  man- 
aging it  easily. 

Stop  by  your  Continental  Software 
dealer  today  and  pick  up  The  Home 
Accountant.  You'll  see  what  everyone's 
talking  about. 

The  Home  Accountant  is  available 
for  Apple  II/IIe,  IBM  PC/XT,  Atari 
400/800/1200XL,  Osborne®  TRS-80 
Models  HI/4,  Commodore  64,  Texas 


Instruments  Professional,  Zenith 
Z- 100/1 10,  Compaq  and  Kay  Pro  compu- 
ters. Actual  budget  capacities  will  vary 
wiih  each  computer. 

For  your  free  48  page  booklet, 
"Tips  For  Buying  Software,"  please 
write  Continental  Software,  11223 
South  Hindry  Avenue,  Los  Angeles, 
CA  90045,  213/417-8031, 
213/417-3003. 


Continental 

Software 

a  Division  of  Arrays,  fnc. 


opened  a  door  just  by  pointing  to  it  on  the 
KoalaPad.  Then  he  went  through  the  doors  into 
different  "drawing"  worlds  where  he  made  multi- 
colored rubber  bands,  grew  circles  and  squares, 
and  drew  shapes  and  pictures. 

"Show  her,  Eric,"  I  said.  I  picked  him  up  and 
plopped  him  down  in  front  of  the  computer.  Eric 
showed  her. 

The  teacher  was  unimpressed.  "He  can  do 
all  those  things  because  you  taught  him,"  she 
said.  "You're  a  computer  expert.  But  you  won't 
be  in  my  classroom  with  me  and  my  kids.  Who's 
going  to  teach  me?  And  how  am  I  going  to  teach 
the  kids?" 

First  Things  First 

At  that  moment  everything  became  clear  to  me.  I 
realized  that,  in  my  idealistic  fervor,  I  was  rushing 
in  the  wrong  direction.  I  was  trying  to  create  new 
educational  structures,  but  I  was  forgetting  the 
basics.  The  first  item  on  my  agenda  wasn't  bridge 
building,  it  was  teacher  training.  It  would  be  point- 
less to  stick  computers  in  Catie  and  Eric's  class- 
rooms unless  their  teachers  knew  how  to  operate 
them  and  were  comfortable  with  them. 

What  the  teacher  had  said  was  true.  The  kids 
couldn't  learn  on  the  computers  unless  she  taught 
them.  And  before  she  could  teach  them,  some- 
body had  to  teach  her. 

That  somebody  was  me. 

The  Prime  Mover 

Before  I  took  the  computer  to  my  kids'  school,  I 
had  thought  that  I  was  going  to  act  as  liaison  be- 
tween two  ongoing  computer  learning  centers.  I 
saw  the  home  as  one  learning  center  and  the 
school  as  the  other.  The  way  I  saw  it,  my  job  was 
to  get  the  two  centers  communicating,  sharing, 
and  trading  information  and  resources. 

After  my  experience  in  the  classroom  with 
the  kids  and  the  teachers,  I  realized  that,  for  a 
while,  my  job  would  be  much  more  limited.  Before 
I  could  coordinate  the  activities  of  the  two  learning 
centers,  I  would  have  to  create  them. 

I  realize  now  that  I'll  have  to  spend  a  consid- 
erable amount  of  time  with  the  teachers  to  get 
them  started  using  computers  in  the  classroom. 
And  I'll  probably  have  to  work  with  the  parents 
to  get  them  started  using  computers  to  help  their 
children  learn  at  home. 

Before  I  begin  building  the  bridge  between 

the  two  islands  of  learning,  I'm  going  to  have  to 

build  the  foundations. 

Show  And  Tell  At  Home  And 
At  School 

I've  started  inviting  teachers  from  my  children's 
school  over  to  our  house  on  evenings  and 
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weekends.  We  are  conducting  an  informal  teacher 
training  workshop,  and  we  arc  screening  the  soft- 
ware that  we  plan  to  use  in  the  classroom. 

I'm  [earning  a  lot. 

My  next  goal  is  to  create  a  newsletter  that  the 
kids  can  take  home  to  their  parents.  I  hope  that 
there  are  a  lot  of  parents  out  there  who  know 
something  about  computers  and  who  read  the 
newsletter  and  get  enthusiastic  about  my  bridge- 
building  plans. 

I  can  use  their  help.  They  can  work  with  the 
teachers  and  help  train  them  on  the  computers. 
They  can  bring  their  computers  to  school  for  show 
and  tell.  They  can  share  their  software  with  the 
school. 

Once  the  teachers  are  trained  and  we  have  a 
nucleus  of  committed  parents,  we  can  think  about 
organizing  a  Parents  and  Teachers  Computer 
Association. 

For  the  moment,  though,  I've  got  my  hands 
full  training  Eric's  teacher  on  the  Koala  Pa  iu  I  pro- 
gram. Like  the  other  teacher,  she  is  boggled  by 
the  screen  menu  with  all  its  boxes. 

Eric  is  helping  me  train  his  teacher.  He  is 
very  understanding  and  very  patient.  Two  nights 
ago,  during  a  session,  he  pointed  at  the  screen 
with  the  Koala  Paint  menu.  "These  are  doors  into 
the  computer,"  he  told  his  teacher.  "Which  door 
do  you  want  to  open  first?"  <gf 


by  Eastern  House 


A  Communications  Cartridge 
for  the  Commodore  64. 

Upload/Download,  Status  Line.  etc.  Works  with 

your  Commodore  1600  or  1650  Modem. 

Auto-dialing,  etc.  when  used  with  the  new 

CBM  1650  Modem. 

Cartridge  and  Manual  -  S49.95 


IF  YOU  CAN  FIND  A  BETTER 
WORD  PROCESSOR  OR  DATA  BASE  SYSTEM 

WE'LL  BUY  IT  FOR  YOU. 


Outrageous  offer?  Not 
really.  For  your  Commo- 
dore 64,  we're  putting  our 
money  where  our  mouth 
is,  because  the  Timeworks 
Word  Writer  and  Time- 
works  Data  Manager  2 
are  so  complete  — so  ex- 
tremely easy  to  use,  we 
think  nothing  beats  them 
at  any  prtce.  (Our  suggest- 
ed retail  prices  are:  349.95 
for  Word  Writer.  S49.95  for 
Data  Manager  2.) 

Word  Writer 

This  menu-driven  system  includes: 

A  program  which  can  be  used  by  itselt  (stand- 
alone), or  interfaced  with  Timeworks'  Data  Manager 
or  Data  Manager  2,  enabling  you  to  maintain  and 
print  out  name  and  address  lists,  create  individu- 
alized form  letters  automatically,  and  produce 
customized  reports  up  to  20  columns  wide,  which 
can  be  incorporated  into  any  text  produced  by  the 
Word  Writer. 

Two  plastic  keyboard  overlays  which  place 
the  word  processing  commands  directly  onto 
the  keyboard. 

A  lull  screen  format  (up  to  80  characters)  which 
simplifies  your  text  entry  and  editing. 

All  the  essential  features  —  plus  some  exclusive 
Timeworks  extras  — making  this  system  completely 
functional  for  most  home  8c  business  requirements. 

Data  Manager  2 

This  system  includes; 

A  menu-driven  program  that  easily  lets  you  store 
information  on  a  wide  variety  of  subjects  — from 
general  name  and  address  lists,  to  research  data. 
This  program  will  also  calculate  and  store  any 
corresponding  numerical  data. 

Quick  access  to  important  information.  Items  can 
be  easily  retrieved  and  printed  by  category,  name, 
index  code,  date  range,  amount  range,  or  any 
category  of  information  stored  in  the  system, 


Timeworks  exclusive  X-Search,w  X-Sort™  and 
X-Chart'™  features  allow  you  to  easily  cross-search 
any  of  the  categories.  Or  arrange  your  stored  items 
in  increasing  or  decreasing  order,  alphabetically, 
numerically  or  by  date.  Break  down  statistical  infor- 
mation by  up  to  ten  indexed  categories  of  your 
choice  —  and  graphically 
review  your  results. 

Arithmetic  calculation 
of  your  mathematical 
data  is  possible,  allowing 
you  to  perform  Payroll  cal- 
culation, cost  estimates 
and  more.  Data  Man- 
ager 2  also  produces  the 
Sum,  Average  and  Stan- 
dard Deviation  of  statis- 
tical data  entered  into  the 
system,  along  with  Fre- 
quency Charts. 

When  interfaced  together,  these  programs: 

Generate  customized  data  reports,  which  can  be 
incorporated  into  any  written  text  produced. 

Individually  address  and  print  form  letters 
automatically 

Print  your  name  and  address  file  onto  standard 
mailing  labels. 

Transfer  and  print  text  information  onto  labels 
and  tags. 

Calculated  numerical  data  from  column  to 
column,  giving  these  programs  spread-sheet 
capabilities. 

So,  if  you  can  find  anything  better,  simply  send  us 
your  Word  Writer  or  your  Data  Manager  2,  your 
paid  receipt,  and  the  name  of  the  word  writer  or 
data  base  system  you  want.  If  it's  available,  we'll 
buy  it  for  you." 

Now  at  your  favorite  dealer.  Or  contact  Time- 
works,  Inc.,  RO,  Box  321,  Deerfield,  IL  60015.  Phone 
312-291-9200. 


SOFTWARE  WITH  SUBSTANCE. 
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■Now  lor  Ihe  anal!  pnnt  Oiler  applies  lo  Commodore  only,  wiih  maximum  suggested  retail  prices  ot  SI 25  00  each  for  any  exchanged  program. 

OBsr  expires  46  days  aiier  dale  ol  your  purchase. 
'  Registered  Trademark  ol  Commodore  Computer  Systems  <  I '83  Timeworks.  Inc  All  rights  reserved 


The  Electronic  Castle: 

Managing  Your  Home 
With  Your  Computer 


Selby  Bateman,  Assistant  Editor 


i^^=^Z^ 


When  friends  and  relatives  begin  asking  you 
what  practical  uses  your  personal  computer 
has,  let  your  answers  start  right  at  home.  Soft- 
ware producers,  spurred  by  consumers,  are 
creating  a  wide  array  of  home  applications. 
And  with  the  advent  of  such  home  transaction 
services  as  computer  banking  and  shopping, 
the  future  looks  even  brighter. 


What  do  you  see  when  you  look  at  your 
home  computer?  A  game-playing 
machine?  An  educational  toy?  A 
learning  tool?  Sure,  your  computer  is 
all  of  these,  but  it's  much  more. 

As  Elliot  Dalian  says,  "My  basic  premise  is 
that  if  you  don't  look  at  your  computer  as  a  home 
appliance,  then  don't  even  buy  one.  It's  as  simple 
as  that.  When  you  see  the  computer  as  an 
appliance,  then  you  start  looking  at  what  it  will 
do  as  an  appliance." 

Dahan  is  vice  president  for  marketing  at 
Creative  Software,  a  company  that  has  had  great 
success  with  its  line  of  educational,  home  man- 
agement, and  computer  game  programs.  His  sen- 
timents are  echoed  by  other  software  producers, 
many  of  whom  are  marketing  home  management 
programs  which  address  everything  from  the 
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family  budget  to  home  heating. 

In  order  to  better  understand  the  multitude 
of  home-oriented  computer  applications  now  on 
the  market,  let's  divide  them  into  three  basic 
categories. 

First,  there  are  the  home  control  programs 
which  allow  you  to  regulate  the  heating,  cooling, 
and  lighting  of  your  house  or  apartment.  Home 
security  packages  let  your  computer  become  a 
sentinel  against  intruders  by  monitoring  doors 
and  windows,  setting  off  alarms,  and  even  auto- 
matically calling  the  police  if  necessary. 

Second,  there  are  household  management 
programs  for  word  processing,  family  budgeting, 
checkbook  balancing,  and  a  host  of  other  related 
functions. 

The  third  broad  category  is  home  transaction 
services.  With  a  modem,  two-way  transactions — 
at-home  banking  and  shopping,  for  example — are 
now  possible.  These  transaction  applications  are 
being  tested  in  several  major  metropolitan  markets. 
If  the  experiments  prove  commercially  feasible, 
other  transaction  service  developers  are  waiting 
in  the  wings  with  similar  systems. 

Uo  people  really  buy  home  computers  for  these 
kinds  of  home  applications?  Tricia  Parks,  a  re- 
search director  for  Future  Computing,  a  company 


that  analyzes  trends  in  the  personal  computing 
industry,  says  her  company  is  in  the  midst  of  a 
major  psychographic  and  demographic  analysis 
of  buying  patterns  among  home  and  business 
computer  users. 

"We  have  found  that  people  generally  have  a 
dual  motivation  when  they  purchase  computers. 
The  first  reason  is  to  play  games.  But  that's  not 
the  only  reason.  Otherwise,  they  would  buy  a 
game  system  for  the  home,  not  a  computer,"  notes 
Parks. 

People  with  children  usually  buy  computers 
in  order  to  further  the  education  of  the  youngsters 
and  for  home  management,  she  adds.  Those  with- 
out children  generally  cite  self-education  and 
home  management  as  reasons  for  their  computer 
purchases. 

"The  home  management  reason  has  been 
lesser  in  the  past,  but  it  is  growing,"  says  Parks. 
"That's  reflected  in  the  kind  of  machines  that  are 
coming  out,  such  as  the  Commodore  64." 

Mast  year,  the  increasing  interest  in  home  control 
applications  came  to  the  attention  of  Savergy, 
Inc.,  a  Colorado  firm  which  creates  and  manufac- 
tures equipment  and  software  for  energy  man- 
agement applications.  In  response  to  customer 
interest,  the  company  has  developed  and  is  now 
marketing  a  home  energy  control  device  for  use 
with  Commodore  computers. 
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Severgy's  CIM  112  home-control  package  includes  the  com- 
puter interface  module  (lower  left),  the  mill-mount  unit 
(right),  and  software. 

Called  the  Computer  Interface  Module  112 
(CIM  112),  the  unit  will  regulate  lights  and 
appliances — turning  on  and  off  everything  from  a 
sprinkler  system  to  a  water  heater- — when  coupled 
with  a  computer.  The  $450  unit  can  save  energy 


through  its  scheduling  capabilities  and  through  a 
timing  control  method  called  duty  cycling.  The 
package  includes  a  computer  interface  module 
{about  the  size  of  a  paperback  book)  which  plugs 
into  the  computer,  a  wall-mounted  unit  (the  size 
of  a  thick  phone  book),  and  program  software  on 
disk  or  tape.  (For  more  information,  contact 
Savergy,  Inc.,  1404  Webster  Ave.,  Fort  Collins, 
CO  80524.) 

One  major  drawback  to  this  type  of  personal 
computer  use  immediately  becomes  apparent 
when  you  realize  that  you  can't  use  your  computer 
if  it's  tied  up  sprinkling  the  lawn,  running  the 
thermostat,  or  monitoring  your  home's  security. 

John  Helwig  of  Wescoville,  Pennsylvania, 
has  developed  a  solution  to  that  problem:  Pur- 
chase a  VlC-20  computer,  now  selling  for  well 
under  $100,  and  use  it  as  a  machine  dedicated  to 
home  control.  This  way,  you  have  your  original 
computer  for  personal  use  and  a  home  control 
machine  costing  far  less  than  many  of  the  security, 
lighting,  and  temperature  control  systems. 

Helwig  became  interested  in  a  home  security 
system  when  a  neighbor's  house  was  burglarized. 
He  shopped  around  at  commercial  firms  and 
found  that  the  costs  usually  amounted  to  several 
thousand  dollars.  "People  would  like  to  have  a 
system,  but  they  just  can't  afford  it.  Three 
thousand  dollars  is  a  lot  of  money." 

He  has  since  developed  a  home  control  pack- 
age which  he  is  marketing  through  his  own  com- 
pany, Jance  Associates,  Inc.  It  sells  for  under  $200 
and  can  be  used  with  a  VIC-20  or  Commodore  64. 
With  instructions  written  for  the  home  computer 
user,  the  Jance  system  includes  a  computer  inter- 
face card  and  all  the  alarms,  switches,  and  wire 
necessary  to  set  up  the  product. 

Helwig  has  added  BSR  switch  modules  to  his 
own  system  so  that  the  security  function  is  just 
one  component  of  home  control.  BSR  modules 
connect  to  the  electrical  plugs  in  a  home  and  react 
to  commands  from  the  computer.  The  system  can 
be  used  to  control  the  temperature  in  the  hot  water 
heater,  to  monitor  heat  pump  activity,  and  to 
keep  tabs  on  the  computer's  realtime  clock  so  that 
Helwig' s  home  thermostat  can  be  raised  or  lowered 
at  certain  times  and  on  designated  days.  There 
are  dozens  of  related  applications  possible  for  the 
innovative  computer  owner,  Helwig  adds. 

"I'm  in  the  process  of  negotiating  with  several 
home  construction  companies  that  are  interested 
in  building  the  systems  into  houses.  Every  switch 
would  be  BSR  oriented,"  he  notes.  "According  to 
the  builders  I've  talked  to,  there  is  a  real  demand 
for  this.  The  whole  concept  of  using  home  com- 
puters is  expanding.  There  are  all  kinds  of  things 
that  can  be  done."  (For  more  information,  con- 
tact Jance  Associates,  P.O.  Box  234,  East  Texas, 
PA  18046.) 
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\#Iosely  related  to  the  home  control  category  of 
computer  applications  is  household  management. 
Balance  your  checkbook.  Chart  your  monthly 
electric  bills.  Use  a  word  processor  to  handle 
correspondence. 

Think  of  a  household  chore  that  needs  to  be 
listed,  written,  graphed,  or  analyzed,  and  you 
can  find  computer  software  that  will  attempt  it. 
(See  "The  Data  Base  As  A  Home  Information  Cen- 
ter" elsewhere  in  this  issue.) 

Let's  say  that  you  have  set  up  a  thermostat 
control  package  using  your  computer.  To  comple- 
ment that,  there  are  programs  which  allow  you  to 
plot  energy  usage  from  month  to  month  and  cal- 
culate savings  from  use  of  insulation,  storm  doors, 
weathers  tripping,  and  other  energy  efficiency 
improvements.  (See  COMPUTE!  Books'  Home 
Energy  Applications  On  Your  Personal  Computer.) 
Energy  programs  are  but  one  example  of  house- 
hold management. 

One  computer  executive  who  has  looked 
carefully  at  these  applications  is  Vic  Schiller,  vice 
president  of  development  for  Timeworks,  an  in- 
dustry leader  in  the  field  of  home  management 
software.  His  company  has  produced  several 
popular  programs,  such  as  Money  Manager,  Elec- 
tronic Checkbook,  and  Data  Manager. 

"The  theory  we  promote  here  is  that  people 
will  not  buy  something  they  don't  understand. 
That's  very  important  to  us,"  he  explains. 

The  success  of  the  company's  home  manage- 
ment line  of  software  has  occurred,  he  adds,  be- 
cause of  adherence  to  that  principle. 

"The  whole  key  to  this  thing  is  that  it  is  so 
easy  to  use.  Mom  and  Dad  can  use  our  Money 
Manager  when  they  pick  it  up  without  even 
reading  the  instructions.  I'm  such  a  stickler  for 
user-prompted  formats.  If  I  can  run  software  with- 
out opening  a  manual,  that's  a  good  piece  of  soft- 
ware," says  Schiller. 

Early  in  1984,  Timeworks  began  marketing 
The  Word  Writer,  a  word  processing  program  which 
interacts  with  the  other  home  management  pack- 
ages produced  by  the  company.  "It's  totally 
user-prompted,  with  two  keyboard  overlays.  And 
there  are  no  commands  to  memorize,"  Schiller 
points  out. 

Elliot  Dahan  at  Creative  Software  agrees  that 
home  management  programs  should  be  easy  to 
use.  The  company's  household  finance  program 
has  sold  over  150,000  copies  on  cassette  for  the 
VIC.  And  this  year  Creative  Software  is  selling  an 
integrated  series  of  household  management  pro- 
grams called  The  People's  Choice.  Included  are 
Joe's  Writer,  Fred's  Filer,  and  jack's  Calc,  all  targeted 
for  the  home  user  who  wants  to  combine  easy  use 
with  low  cost.  The  programs  each  cost  $49.95  and 
allow  you  to  integrate  mailings  with  word  proc- 
essing, for  example,  as  a  part  of  their  format. 
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Timeworks,  Creative  Software,  and  other 
software  producers  continue  to  improve  house- 
hold management  programs,  looking  for  the  magi- 
cal mix  of  low  price  and  easy  use. 


iome  transaction  services,  less  common  than 
the  types  of  applications  we've  seen  so  far,  are  on 
the  threshold  of  a  breakthrough.  With  your  com- 
puter, you  should  soon  be  able  to  make  shopping 
purchases,  buy  stocks  and  bonds,  deposit  and 
withdraw  funds  from  your  bank,  conduct  personal 
business,  buy  theater  tickets,  and  much  more. 
This  two-way  home  computer  market  is  an  out- 
growth of  the  burgeoning  news,  information,  and 
entertainment  services  you  may  now  be  using 
with  your  modem.  But  with  the  interactions  soon 
to  be  available,  home  management  by  computer 
enters  a  new  realm. 

This  may  be  the  year  when  home  transaction 
services  are  established  in  selected  large  metro- 
politan markets.  Major  companies  like  the  Knight- 
Ridder  newspaper  chain,  the  Times  Mirror  Co. 
(owners  of  the  Los  Angeles  Times),  Field  Enterprises 
(owners  of  the  Chicago  Stui-Times),  and  Chemical 
Bank  are  closely  watching  home  transaction  ex- 
periments in  Miami,  the  Chicago  area,  and  other 
cities,  to  see  if  they  attract  enough  subscribers  to 
make  mass  market  systems  feasible. 

The  gamble  here  is  not  so  much  whether  the 
concept  will  work;  it  appears  to  be  an  idea  whose 
time  is  overdue.  Rather,  the  anxiety  among  these 
companies  stems  from  which  mix  of  services  will 
catch  on  and  at  what  price. 

One  of  the  more  interesting  experiments  is 
the  Keyfax  Interactive  Information  Service,  sched- 
uled to  go  on-line  this  spring  in  Chicago. 

Tom  Ray,  manager  of  advertising  and  public 
relations  for  the  system's  owner,  Keycom  Elec- 
tronic Publishing,  hopes  to  have  some  20,000 
subscribers  in  the  Chicago  area  by  the  end  of 
the  first  year.  Keyfax  should  be  accessible  by 
virtually  all  home  computers,  says  Ray,  for  a 
S10— $15  monthly  base  rate.  Not  included  in  that 
will  be  a  one-time  purchase  of  the  necessary  soft- 
ware at  about  $40  or  a  software-modem  package 
at  about $150. 

Keyfax  will  offer  a  full  range  of  general  data 
base  information,  shopping  services,  banking 
functions,  educational  packages,  and  financial 
options.  Ray  notes  that  customers  will  have  access 
to  Ticketron,  the  national  ticket-buying  service, 
and  even  to  an  electronic  edition  of  the  World  Book 
Encyclopedia. 

How  will  these  initial  mass  market  experi- 
ments in  computer  transaction  services  be  accepted? 
"It's  hard  to  guess,"  says  Ray.  "We'll  see  what 
happens  those  first  couple  of  years.  Quite  hon- 
estly, 1  think  that  everyone  is  taking  guesses." 


\Nfedorftcare 
which  computer  you  own, 

Well  help  you 
get  the  most  out  of  it. 
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CompuServe  puts  a  world  of  information,  communications,  and  entertainment  at  your  Fingertips. 

To  learn  more  about  CompuServe,  call 
toll-free,  800^8-8199.  for  an  illustrated 
guide  to  the  CompuServe  Information 
Service.  The  videotex  service  for  you,  no 
matter  which  computer  you  own. 

CompuServe 

Consumer  Information  Service,  P.  O  Box  20212 
5000  Arlington  Cuntre  Blvd..  Columbus,  OH  43220 

800-848-81 99  m  ono  can  6U-457-O802 

An  H&R  Block  Company 


( '1  tmpiiServt-1  is  the  i  >asy  l<  1 1  isi  ■  \  \<  leotex 
service  designed  for  the  personal 
computer  user  and  managed  by  the  corn 
munications  professionals  who  provide 
business  information  services  to  over  one 
fourth  of  the  FORTUNE  500  companies, 

Subscribers  get  a  wealth  of  useful, 
profitable,  or  just  plain  interesting  infor- 
mal ion  like  national  news  wires,  electronic 
banking  and  shop  al  home  services,  and 


sophisticated  financial  (lata.  Plus,  a 
communications  network  for  electronic 
mail,  a  bulletin  In  mrd  for  selling,  swap- 
ping, and  personal  notices  and  a  multi- 
channel CB  simulator. 

You  get  games  on  CompuServe,  too. 
Classic  puzzlers,  educational,  sports  and 
adventure  games  and  fantastic  space 
games  featuring  MegaWars.  the  "ultimate 
computer  conflict!' 


If  experiments  like  Key  fax  in  Chicago, 
Citibank's  HomeBasc,  and  Knight-Ridder's  View- 
tron  in  Miami  do  well,  plans  are  already  under 
way  to  make  access  available  nationally. 

Gone  arc  the  days  when  a  personal  computer 
owner  might  feel  the  need  to  apologize  while 
fielding  well-meant  but  skeptical  inquiries  about 
the  machine's  practical  uses.  Whether  the  appli- 
cation is  household  control,  management,  or  two- 
way  transactions,  the  computer  owner's  home 
can  clearly  become  an  electronic  castle.  (fj 
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GET  THE  MOST  FROM 
YOUR  VIC-20/C64 


CASSETTE  INTERFACE 

USE  ANY  PORTABLE 
CASSETTE  RECORDER 
CONTROLS  THE  CASSETTE 

MOTOR 

MAKE  COPIES  OF  ANY 
TAPE  PROGRAM 
SATISFACTION  GUAR- 
ANTEED 

ONLY  $34  95  PLUS  S I  60  FOR 
SHIPPING 


FULL  RS232  INTERFACE 
CONNECTS  TO  USER  PORT 
FULL  RS232  CONVERSION 
CONNECTS  ANY  STANDARD 

MODEM  OR  SERIAL  PRINTER 
COMES  WITH  TYPE  IN  BASIC 
TERMINAL  PROGRAM 
SATISFACTION  GUARANTEED 
ONLY  $3995  PLUS  SI  60  FOR 
SHIPPING 


ADD  S2  50  EXTRA  OUTSIDE  US.  CANADA  OR  MEXICO 
SEND  TODAY  FOR  OUR  FREE  CATALOG 

SEE  YOUR  LOCAL  DEALER  OR  CALL: 

(206)  236-BYTE 


OMNITRONIX 

PO  BOX  12309  DEPT 
SEATTLE,  WA  98111 


/    Formerly  BYTESIZE    \ 
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SUPERTAX 


Get  Supertax  now  and 
relax  on  April  15th  .  . 


SECOND  SUCCESSFUL  YEAR!   •  THOUSANDS  ALREADY  IN  USE! 

Use  SUPERTAX  personal  income  tax  programs  to  calculate  your  tax  liability  now  and  have  plenty  of 
time  to  make  year-end  investment  decisions  to  improve  your  position.  SUPERTAX  was  specifically 
created  for  Commodore  64  users  by  a  practicing  CPA  with  a  Master's  degree  in  tax  accounting. 
Highly  acclaimed  by  tax  pros,  SUPERTAX  is  easy  to  understand  and  a  pleasure  to  work  with. 

•  SUPERTAX  PROGRAMS  are  fully  screen- 
prompted  and  include  a  manual  loaded  with 
valuable  tax  information  and  guidance. 

•  SUPERTAX  instantly  recalculates  your  entire 
return  when  you  change  any  item. 

•  SUPERTAX  is  available  on  cassette  and  diskette. 


•  SUPERTAX  DATA  can  be  stored  on  cassette 
and  diskette. 

■  SUPERTAX  is  available  at  50%  off  to  prior 
purchasers  for  all  subsequent  year's  programs. 

■  SUPERTAX  is  an  essential  addition  to  your  per- 
sonal software  library — -best  of  all  it's  tax  deductible. 


SUPERTAX  I 

Using  oilher  screen  or  printer  output.  SUPERTAX 
I  generates  clear  and  concise  summaries  ot  Pago 
1  and  3  and  Schedule  A  of  FORM  1040  allowing 
you  to  see  at  a  glance  and  to  quickly  comprehend 
your  tax  siluation.  This  program  also  prints  an 
OVERALL  SUMMARY  of  the  return  showing 
Adjusted  Gross  Income,  Itemized  Deductions, 
Taxable  Income.  Regular  Tax,  Income  Averaging 
Tax,  Minimum  Tax  and  Payment  Due  or  Rotund — 
all  of  which  are  calculated  by  the  program. 
SUPERTAX  I  also  calculates  the  moving  exponso 
deduction,  investment  credit,  taxable  capital  gains, 
political  and  child  care  credits,  medical  limitations, 
and  much  more.  Input  is  fast  and  easy  and 
changes  can  be  made  in  seconds.  This  program 
actually  makes  tax  planning  a  breeze. 

Cassette  or  Diskette  $79 

TO  ORDER  Call  Toll  Free  1-800-527*4171  In  Texas  Call  214-739-1 100 
MasterCard,  VISA,  Money  Orders,  Bank  Checks  and  COD  Orders  Accepted 
(add  3%  surcharge  for  credit  card  processing)  (add  $5.00  lor  COD) 


SUPERTAX  n 

Includes  the  efficient  SUPERTAX  I  program 
as  well  as  the  more  detailed  SUPERTAX  II 
program  which  makes  all  of  the  SUPERTAX  I 
calculations,  but  which  also  PRINTS  THE 
INCOME  TAX  RETURN.  This  program  pnnte 
page  1 ,  page  2,  Schedules  A,  B,  and  G 
(income  averaging)  of  the  FORM  1040  as  well 
as  FORM  3468  (investment  tax  credit)  on 
standard  government  forms  or  on  blank  com- 
puter paper  for  use  with  transparencies.  Any 
input  item  can  be  changed  in  seconds  and  the 
entire  return  is  recalculated  almost  instantly. 

Diskette  only  $89 


NOTE;  Printing  on  government  (orms 
requires  tnctron  teed  printer. 


SUPERTAX  m 

This  package 
includes  both  the 
SUPERTAX  I  and  SUPER- 
TAX II  programs  PLUS  a 
program  to  calculate  and  pnnl 
Schedule  C  of  the  FORM  1040. 
Also  included  is  a  stand  alone 
depreciation  program  which  calculates 
and  prints  your  depreciation  schedule 
using  both  the  old  rules  and  the  new  ACRS 
rules.  Oulput  from  the  depreciation  program 
is  designed  to  servo  as  a  supplement  to  I  Ft  S 
FORM  4562  Diskette  only  $99 

Products  shipped  FOB  Dallas  TX 
Commodore  64  is  a  trademark  of 
Commodore  Business  Machines 

For  Free  Brochure  WRITE 
Rock  ware  Data  Corporation 

1 0525  Barrywood  Drive 
Dallas,  Texas  75230 


Five  Easy  Ways 
To  Clean  Up  Your  Finances. 


■  dual  screen  display       'Indicates  function  being  shown 


Chart  of  Accounts 
'Checkbook  Maintenance 
Check  Search 
Prints  Checks 


*  Detail  Budget  Analysis 
Summary  Budget 

Analysis 
Income/Expense 

Statements 
Net  Worth  Statement 


Appointments  Calendar 
Payments  Calendar 
•Color  Chart  Package 
Mailing  List 


'Spreadsheet 
Compatible  with 
Finance  1,  2  and  5 


'Income  Tax 
Prints  forms 
Most  schedules 
Uses  Finance  1,  2  and  4 


^Complete  Personal  Accountant" 


Whether  you're  cleaning  up  at  home  or  around  the  of- 
fice, there's  NOW  a  COMPLETE  line  of  money  manage- 
ment software  that  will  attend  to  all  the  details,  while 
letting  you  see  the  whole  financial  picture.  The  Com- 
plete Personal  Accountant's  exclusive  combination  of 
easy  to  use  programs  give  the  wise  investor  a  quick  and 
dependable  way  to  control  finances  and  plan  for  the 
future. 


FINANCE  1  gets  you  organized  with  a  standard  chart  of 
accounts  adaptable  to  any  situation.  The  Checkbook 
Maintenance  program  with  tull  screen  editing  and  special 
'Help'  commands  let  you  find  any  check  by  any  field. 
You  can  flag  tax  deductibles,  reconcile  your  bank 
statement,  print  checks  and  more. 

FINANCE  2  tells  you  where  your  money  is, 
where  it's  going  and  where  It's  coming 
from.  The  Detail  and  Summary  Budget  pro- 
grams show  exactly  where  you're  spending 
your  money.  The  IncomefExpense  and  Net 
Worth  programs  provide  professional- 
looking  statements  that  can  be  printed 
with  any  SO  column  printer. 

FINANCE  3  separates  the  CPA  from  the 
competition.  No  other  finance  package  for 
the  home  or  small  business  gives  you  Ap- 


pointments and  Payments  Calendars  for  scheduling  your  time  and  money. 
Few  packages  offer  the  ability  to  chart  each  account  In  color.  And  only  the 
CPA  includes  a  mailing  list  with  a  1200  name  capacity*.  All  reports  are  print- 
able with  an  SO  column  printer. 

FINANCE  4  lets  you  determine  the  "what  if's"  of  your  financial  future.  With 
this  easy  to  learn  spreadsheet  you'll  spend  more  time  making  decisions  and 
less  time  crunching  numbers. 

FINANCE  5,  The  Tax  Handler",  uses  your  files  from  Finance  1, 2  and  4  to  conv 
plete  your  taxes  in  a  fraction  of  the  normal  lime. 

The  Complete  Personal  Accountant"  line  of  money  manage- 
ment software  Is  simply  the  most  comprehensive,  easy  to 
use  financial  software  available  anywhere. 


Disk 

C.llMltlll 

Finance  1 

33.95 

34.95 

Finance  2 

29.95 

24. 86 

Finance  3 

29.95 

24.95 

Finance  4 

29.95 

24.95 

Finance  5 

59.95 

54.95 

SAVE  wher 

you 

purchase  Finance  1.  2 

and  3  as  a 

set 

7B.95 

74.95 

Available  for  Atari  JO0!B00Ji2O0  •,  Commodore  M  -. 

IBM  PC  ■,  TRS  90  Color- 

and  Vic  20^ 

Prices  subjoct  to  change  without  notice.  Add  13.00 
for  postage  and  handling. 

Ask  your  local  dealer  to  see  a  running  damo  or  call 
1  -800-334-SOFT  to  order  direct. 

'Varies  according  to  computer. 


piqgEamm.^^  a  division  0. 

p.o.  box  3470,  department  eg,  chape!  hill,  north  Carolina  27514 


ifuturehouse 


The  Data  Base 

As  A  Home 

Information  Center 


Kathy  Yakal,  Editorial  Assistant 


Perhaps  one  of  the  reasons  you  bought  a  home 
computer  was  to  help  you  "get  organized." 
You  might  have  a  spreadsheet  for  your  finan- 
cial calculations  and  a  word  processing  pro- 
gram for  correspondence  and  other  writing. 
But  there's  another  kind  of  software  that  can 
be  valuable  for  many  types  of  home  record 
keeping:  a  data  base  program. 


I  have  this  friend  who,  in  her  early  days  of  com- 
puting, was  asked  to  alphabetize  and  type  a  list  of 
volunteer  groups.  It  would  be  simpler,  she 
thought,  to  perform  such  a  task  using  a  personal 
computer. 

Having  become  familiar  with  word  process- 
ing, knowing  that  she  could  just  type  in  all  the 
names  and  addresses  and  phone  numbers  and 
print  them  out,  she  decided  that  a  word  processing 
program  would  work.  Even  if  she  needed  to 
change  or  add  or  delete  records,  she  figured  she 
could  go  back  to  her  file  and  use  the  built-in  text- 
editing  functions. 

But  first,  she  had  to  alphabetize  the  200  pieces 
of  paper  containing  the  group  information.  Then 
she  remembered  that  they  were  supposed  to  be 
separated  by  state  before  being  alphabetized,  so 
she  started  over  again. 

After  typing  in  all  the  information  and  printing 
it  out,  she  found  a  stack  of  a  dozen  or  so  that  she 
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had  missed.  She  typed  in  and  printed  them  out 
separately  and  began  to  cut  and  paste  her  original 
list  to  fit  them  in. 

About  that  time,  a  coworker  who  had  heard 
of  her  plight  wandered  in  with  a  disk  in  his  hand. 
"This  is  a  data  base  program  that  you  can  use  for 
your  list,"  he  said. 

"I'm  already  finished  with  it,"  she  replied, 
pointing  to  her  rather  unsightly  stack  of  work. 

"Oh,  I  see  you  used  a  word  processing  pro- 
gram for  it,"  he  said,  trying  unsuccessfully  to 
hide  a  grin.  "Well,  why  don't  you  take  a  look  at 
this  program.  Maybe  it  will  make  your  job  easier 
next  time." 

She  did.  And  it  did. 

The  Same  Thing,  But  Smaller 

A  data  base  is  exactly  what  its  name  implies.  It  is 
a  base,  or  storehouse,  for  your  data.  You  create 
and  maintain  your  data  base  by  using  software 
specifically  designed  to  let  you  enter,  store,  and 
retrieve  data  in  a  format  that  you  designate. 

Large  systems,  mini-  and  mainframe  com- 
puters, have  used  data  bases  for  years.  Many 
businesses  store  data  base  files  in  their  central 
computers.  Employees  may  then  have  access  to 
that  information  through  their  own  individual 
terminals. 

Data  base  software  for  Commodore  com- 
puters, though  perhaps  not  as  sophisticated  as 


If  you  want  to  stay  ahead  of  the  personal  computing 

revolution  ... 

...welcome  to  COMPUTED  PC  &  PCjr! 

This  exciting  new  magazine  from  COMPUTE.1  takes 

you  inside  the  PC  and  the  incredible  new  PCjr  to  bring 

you  inside  information  you'll  find  nowhere  else. 

You'll  discover  how  to  get  the  most  computer  power 
for  your  money.  At  home.  At  school.  At  work.  With  easy- 
to-run  programs.  Challenging        

projects  for  advanced  users. 
Brand  new  sound  and  graphics 
applications.  Plus  some  of  the 
most  exciting  computer 
functions  outside  of  the  top- 
secret  research  labs! 

We'll  help  you  decide  what 
to  buy.  With  independent 
evaluations  of  hardware, 
software  and  peripherals. 
Comprehensive  reviews  of 
new  products  as  they're  intro- 
duced. Hard-nosed  evalua- 
tions of  each  machine's 
strengths  and  weaknesses. 

COMPUTE.i's  PC  &  PCjr 
will  keep  you  on  the  leading 
edge  of  personal  computing 
like  no  other  publication  can. 
Here  are  some  of  the  features 
you  can  look  forward  to: 

Welcome  to  the  PCjr!  A  com- 
plete introduction  to  IBM's 
newest  personal  computer, 
and  a  fascinating  peek  at  the 
80HH  microprocessor  —  the 
tiny- hut-talented  brain  off  he 
PCjr. 

Designing  PCjr  —  The  Inside 
Story.  PCjr's  creators  tell  how 
they  designed  the  new  com- 
puter-from  original  planning 


From  the  publishers  of  COMPUTE! 

Announcing 

the  magazine 

that  takes  you 

inside  the  IBM 

PC  and  the  PCjr. 
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DESIGNING  THE 
The  Inside  Story 


CHARTER 
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to  trade-offs  to  ultimate  success. 

Telecomputing  with  Your  IBM.  How  to  link  up  with  dis- 
tant computers  over  ordinary  phone  lines,  access  infor- 
mation services,  even  do  office  work  at  home  with  your 
own  machine! 

Music  and  Graphics.  How  to  play  songs  and  create 
sound  effects  with  your  PC  or  PCjr.  Programs  to  gener- 
ate impressive  hi- res  graphics  and  computer  animation. 
Your  First  Hour  with  an  IBM. 
How  to  avoid  those  opening 
night  jitters  and  get  your  com- 
puter up  and  running  fast! 
Financial  Analysis.  Ready-to- 
run  programs  to  help  you 
make  intelligent  investments. 
PC  vs.  PCjr.  Which  one  is  right 
for  you?  COMPUTEVs  PC  & 
PCjr  helps  you  decide! 

PLUS:  Programming  the  func- 
tion keys  to  suit  yuu.  Speeding 
up  BASIC  without  resorting  to 
machine  language.  Tape,  disk, 
or  hard  disk?  Buyer's  guides. 
How  to  take  advantage  of 
free  public-domain  software. 
Computing  activities  for  the 
whole  family.  Reviews.  Games. 
Educational  programs  for 
children.  And  much,  much 
more! 

Subscribe  right  now  and  you 
can  enjoy  special  Charter  Sub- 
scriber Savings  on  COM- 
PUTE!* PC  &  PCjr  -just  $24 
for  the  first  12  big  issues.  That's 
03%  off  the  cover  price! 

To  start  receiving  COM- 
PUTErs  PC  &  PCjt;  jast  mail 
the  postpaid  card  in  this  issue 
or  the  coupon  below  today. 

OR  CALL  TOLL  FREE 
1-800-334-0868 
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WE  UNLEASH  1H 
POWERFUL  GRAP 


A 
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EWORLD'S  MOST 


Ml 


You'll  never  see  Infocom 's  graphics 
on  any  computer  screen.  Because 
there's  never  been  a  computer  built 
by  man  that  could  handle  the  images 
we  produce.  And,  there  never  will  be. 
We  draw  our  graphics  from  the 
limitless  imagery  of  your  imagi- 
nation—a technology  so  power- 
ful, it  makes  any  picture 
that's  ever  come  out  of  a 
screen  look  like  graffiti 
by  comparison.  And 
nobody  knows  how 
to  unleash  your 
imagination  like 
Infocom. 

Through  our 
prose,  your 
■   imagination 
B   makes  you  part 
of  our  stories, 
in  control  of 
what  you  do 
and  where  you 
go— yet  unable 
to  predict  or  con- 
trol the  course  of 
events.  You're  con- 
fronted with  situa- 
tions and  logical  puz- 
zles the  like  of  which  you  won't 
find  elsewhere.  And  you're  immersed 
in  rich  environments  alive  with  per- 
sonalities as  real  as  any  you'll  meet 
in  the  flesh— yet  all  the  more  vivid 
because  they're  perceived  directly  by 
your  mind's  eye,  not  through  your 
external  senses.  The  method  to  this 
magic?  We've  found  the  way  to  plug 
our  prose  right  into  your  psyche,  and 
catapult  you  into  a  whole  new 
dimension. 

Take  some  tough  critics'  words 
about  our  words.  SOFTALK.  for 
example,  called  ZORK®  Ill's  prose 
"far  more  graphic  than  any  depiction 
yet  achieved  by  an  adventure  with 
graphics."  And  the  NEW  YORK 


TIMES  saw  fit  to  print  that  our 
DEADLINE™  is  "an  amazing  feat 
of  programming."  Even  a  journal  as 
video-oriented  as  ELECTRONIC 
GAMES  found  Infocom  prose  to  be 
such  an  eye-opener,  they  named  one 
of  our  games  their  Best  Adventure 
of  1983. 

Better  still,  bring  an  Infocom  game 
home  with  you.  Discover  firsthand 
why  thousands  upon  thousands  of 
discriminating  game  players  keep 
turning  everything  we  write  into 
instantaneous  bestsellers. 

Step  up  to  Infocom.  All  words.  No 
graffiti.  The  secret  reaches  of  your 
mind  are  beckoning.  A  whole  new 
dimension  is  in  there  waiting  for  you. 

(For  more  information  on  Infocom 
games  contact:  Infocom,  Inc.,  RO. 
Box  855,  Garden  City,  NY  11530.) 


HIFOCOIR 

The  next  dimension. 

For  yuur:  Apple  II,  Atari,  Commodore  H,  CP.'M  S,"  DEC  Rainbnw. 
DEC  HT-ll.  IISM.  MS-DOS  2.u.  NEC  MX .  SEC  PC-SOuO.  <>sbi,rnr. 
TI  Profess  tonal.  Tl  S3HA.  TRS  80  Model  I.  TRS-80  Model  III- 


systems  used  by  larger  computers,  consists  of  the 
same  basic  components.  A  bank's  computer  may 
have  millions  of  words  and  figures  to  keep 
straight,  while  your  VIC-20  has  only  to  organize  a 
75-name  Christmas  list,  but  they  can  both  use 
data  base  programs  to  do  it. 

Getting  The  News  By  Data  Base 

Let's  say  it's  8:00  and  your  morning  newspaper 
hasn't  yet  arrived.  If  your  local  newspaper's  cir- 
culation records  are  stored  in  a  computerized 
data  base,  and  the  computer  happens  to  be 
working  at  the  moment  that  you  call,  the  conver- 
sation might  go  like  this: 

Phone  Clerk:  "Circulation  department.  This 
is  Dan  Sullivan  speaking," 

You:  "8:00.  No  paper." 

Clerk:  "I'm  sorry.  May  I  have  your  phone 
number,  please?" 

You:  "Why  do  you  need  my  phone  number? 
My  paper  is  supposed  to  be  delivered  to  my 
front  porch,  not  my  telephone." 

Clerk:  "We  access  your  records  through  your 
phone  number,  not  your  address.  If  you'll 
give  me  your  phone  number,  I'll  get  your 
record  up  on  the  screen  and  see  what  route 
you're  on.  Then  I  can  check  to  see  if  there's  a 
problem  with  that  route." 

The  record  that  the  phone  clerk  needs  to  ac- 
cess is  a  small  part  of  a  file,  which  is  a  small  part 
of  a  large  data  base,  and  probably  contains  a  lot  of 
information  that  can  help  him  track  down  your 
newspaper.  It  will  list  your  name,  address,  and 
telephone  number.  It  will  identify  what  route  you 
are  on,  and  maybe  even  give  the  name  and  phone 
number  of  the  newspaper  carrier.  It  will,  of  course, 
show  the  clerk  whether  or  not  you  actually  sub- 
scribe to  the  morning  newspaper.  And,  unless 
billing  records  are  kept  on  a  separate  data  base 
that  the  circulation  department  cannot  access,  it 
mav  show  when  you  paid  your  last  bill. 

Of  course,  the  phone  clerk  can't  use  the  data 
base  to  deliver  your  newspaper.  But  it  allows  him 
to  get  enough  information  quickly  so  he  can  solve 
the  problem  and  get  you  your  newspaper. 

Starting  Out 

When  you  first  subscribed  to  the  newspaper,  you 
gave  information  about  yourself  that  had  to  be 
entered  into  the  circulation  department's  data 
base,  but  before  that,  when  the  department's 
records  were  being  transferred  to  a  computer, 
someone  had  to  decide  what  information  this 
new  filing  system  needed  to  contain. 

Just  as  businesses  must  define  their  needs  for 
information  storage,  you  will  need  to  do  the  same 
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thing  when  you  use  a  data  base  on  your  home  com- 
puter. 

Any  data  base  software  that  you  buy  should 
include  documentation,  instructions  explaining 
how  to  use  it.  The  documentation  might  be  long 
and  complicated,  but  it's  important  to  read 
through  and  understand  it  before  you  get 
started. 

Though  commands  and  capabilities  vary  from 
one  program  to  another,  all  data  base  programs 
consist  of  the  same  basic  elements. 

The  first  step  is  to  create  a  file.  This  file  is  not 
to  be  confused  with  the  data  base  itself.  A  data 
base  can  hold  many  files,  and  the  software  should 
allow  you  to  define  your  own  files  based  on  what 
you  need. 

You  mav  be  used  to  thinking  of  a  file  as  a 
little  manila  folder  that  goes  in  a  drawer.  It  means 
the  same  thing  in  terms  of  a  data  base.  Instead  of 
typing  a  label  to  put  at  the  top  of  a  file  folder,  you 
type  the  name  of  the  file  into  the  computer. 

Let's  say  you  bought  a  data  base  program  to 
catalog  your  books.  We'll  call  the  file  "Book  Col- 
lection." 

This  file  contains  a  number  ot  records,  one  for 
each  book.  Though  the  actual  content  of  each 
record  differs,  the  type  of  information  is  the 
same. 

Each  record  consists  of  several  fields.  This  is 
the  real  meat  of  your  file,  for  these  are  the  lines  in 
which  the  individual  information  for  each  record 
is  stored.  You  are  asked  to  give  each  field  a  name, 
and  also  decide  on  the  maximum  number  of  char- 
acters and  numbers  each  field  can  hold.  Further, 
you'll  need  to  decide  whether  that  field  can  hold 
letters  only  (alpha),  numbers  only  (numeric),  or 
both. 

It  is  extremely  important  to  define  your  fields 
carefully.  If  you  don't  allow  enough  room  for  the 
information  you  need  to  enter,  you'll  have  to  go 
back  and  redefine  your  file.  And  if  you  allow  for 
more  information  than  you'll  ever  need,  you'll  be 
wasting  memory. 

Using  the  example  of  a  book  collection,  you 
might  want  to  name  your  fields  like  this: 

1.  NAME  OF  BOOK  (50  characters  maximum; 
both  alpha  and  numeric  allowed) 

2.  AUTHOR  (35;  alpha  only) 

3.  COPYRIGHT  DATE  (4;  numeric  onlv) 

4.  PUBLISHER  (35;  alpha  onlv) 

5.  PUBLISI  lER'S  ADDRESS  (30;  both) 

6.  CITY,  STATE,  ZIP  (40;  both) 

7.  SUBJECT  OF  BOOK  (25;  both) 

Once  you've  defined  and  saved  a  format  tike 
this,  you  can  call  up  that  format  to  add,  change, 
or  delete  records.  Data  base  programs  vary  in 
procedures  for  saving  an  updated  file.  Some  save 
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I  designed  Tax  pack  so 
you  could  do  something 
really  practical  with  your 
Commodore  VIC  20. 

Peter  Lomiwt,  MHA 
ViayPresidcm, 

Product  Deidopmenr 
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Tax pack 

Powerful  income*  cax  computing 
software  specially  designed  for 
the  Commodore  VIC  20. 


Now  you  can  use  your  Commodore 
VIC  20  to  perform  all  the 
calculations  on  yi>ur  Canadian  Tl 
general  tax  form.  Tiufiuclt  guides 
you  easily  through  every  aspect  of 
the  form  with  friendly  prompts  and 
a  comprehensive  instruction 

manual.  This  new  software  is 

available  on  cassette  tape  and  will 
run  on  the  standard  I'ik  memory 
in  your  Commodore  VR '  20  home 
computer.* 

Taxjinck  lets  you  tackle  your  income- 
tax  form  at  your  own  pace.  A 
convenient  save-and-restore 
function  lets  you  record  and  review- 
historical  results.  Professional 
editing  features  assure  easy  and 
accurate  data  entry.  Taxpask  puts 
the  power  ol  tax  modelling  and 
planning  for  subsequent  years  in 
your  hands,  today. 
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Many  happy  returns 
Because  you  can  calculate  and 
preview  more  tax  scenarios  with 
Titxptk'lc  than  you'd  have  the 
patience  or  the  time  to  do  manually. 
this  software  can  help  you  save  tax 
dollars.  Custom- tailored  to  the 
Canadian  Tl  general  form,  Tuxpcick 
wit!  he  updated  every  year  to  reflect 
changes  in  the  government's  income 
tax  regulations.  Innovative  program 
design  allows  us  to  update  Tuxpaclt 
within  days  of  the  new  Tl 's 
availability. 

So  easy  to  order 
To  use  your  Visa  or  Mosteraml, 
phone  us  toll  free;  or,  send  your 
cheque  or  money  order  with  [he 
handy  mail-order  form  attached. 
We'll  confirm  your  order  by  return 
mail.  Your  up-to-date  Toxpocfc 
cassette  and  manual  will  be  shipped 
within  1 5  days  of  the  release  af  the 
1983  Tl  general  form. 


To  order  wild  Vim  or  MiistaTcarii    .. 
ctill  lis  toll-free: 

1 -800-268-6364 

(from  B.C.,  call  1 1  a -800- a  68-63  64) 


Satisfaction  Guaranteed 
We  guarantee  that  you  will  find 
Taxjitifk  an  excellent  software  value. 
If  you  Lire  not  totally  satisfied,  drop 
us  a  note  to  say  why,  and  return  the 
product  post  paid  to  us  within  10 
days  for  a  full  refund  of  the 
purchase  price. 


I  Want  Taxpack! 

Please  send  me Taxpacks  @»  $29.95  $- 

Nova  Scotia  residents  only,  add  10%  Sales  Tut  +  $, 

Add  $2  per  unit  shipping  and  handling  charges  +  $. 

Total  $_. 


X 


My  Name 

Address 

City 

Province 

Postal  Code 

Telephone 

Make  CFtajwe  or  Money  Order  payable  to: 
Cosmopolitan  Software  Sen-ices  Limited 
and  mail  u'ith  thij  order  form  to; 
Box  95  3,  Da  r  mi  ou  t  h ,  Nova  Scotia    B2Y3Z6 


Attn:  Order  Desk 


each  record  as  it  is  entered,  while  others  require 
you  to  enter  a  SAVE  command  every  few  records. 

All  Sorts  Of  Sorts 

Beyond  storing  information  in  a  user-defined 
format,  a  data  base  program  can  not  only  retrieve 
it,  but  retrieve  it  in  a  certain  order.  Or  retrieve 
only  certain  records  and  put  them  in  order.  Each 
program  has  its  own  variety  of  ways  to  sort  and 
organize  information. 

In  order  to  do  that,  you  must  define  the 
criteria  by  which  you  want  to  sort.  You  need  to 
specify  some  of  your  fields  as  key  fields.  In  our 
imaginary  phone  call  to  the  newspaper,  the  phone 
clerk  knew  that  the  customer's  phone  number 
was  a  key  field,  that  he  could  access  the  whole 
record  by  typing  in  the  phone  number  and  letting 
the  program  match  it  to  your  subscriber  record. 

In  your  book  collection  file,  suppose  you 
define  fields  2,  3,  and  7  as  key  fields.  You  would 
be  able  to  find  out  how  many  books  you  have  by 
a  given  author  or  publisher,  and  which  books  you 
have  on  a  certain  subject. 

Or,  if  you  are  planning  to  visit  a  city  and  want 
to  look  for  a  job  with  a  book  publisher,  you  could 
set  up  a  separate  field  for  CITY,  do  a  sort,  and 
come  up  with  names  and  addresses  of  book  pub- 
lishers in  that  city.  Deciding  which  fields  to  desig- 
nate as  key  fields  will  depend  on  how  you  will 
later  want  to  sort  them. 

A  Few  Warnings 

Before  you  create  a  file,  be  sure  to  note  the  storage 
capacity  of  your  data  base  program.  Most  com- 
mercial programs  available  for  Commodore  com- 
puters have  adequate  space  for  home  data  storage, 
but  it's  a  good  idea  to  plan  ahead  for  future  file 
expansion. 

Reading  the  documentation  carefully  may 
save  you  a  lot  of  headaches  later  on.  Anyone  who 
defines  a  file  and  discovers  a  major  flaw  in  its 
design  30  records  later  learns  that  lesson  in  a 
hurry.  Some  programs  allow  you  to  go  back  and 
redefine  a  record's  fields,  but  you  can't  count  on 
that  unless  you  read  the  documentation. 

Most  programs  are  particular  about  punctua- 
tion, and  will  not  allow  you  to  use  certain  marks, 
or  any  punctuation  marks  at  all,  in  some  fields. 
Be  sure  you  are  aware  of  any  punctuation  quirks 
your  program  may  have. 

If  you  plan  to  alphabetize,  beware  of  such 
things  as  state  abbreviations.  Whenever  you 
specify  a  key  field,  you  will  at  some  point  be  asked 
for  the  depth  of  sort,  how  many  characters  into 
the  line  you  want  the  program  to  sort.  If  you  want 
to  sort  a  file  by  state,  then  alphabetize,  you  could 
run  into  a  couple  of  problems. 

You  would  probably  set  the  depth  of  sort  at 
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two.  This  would  seem  to  suffice  for  state  ab- 
breviations. But  take  Maryland  (MD)  and  Massa- 
chusetts (MA),  for  example.  If  it  sorts  by  those 
abbreviations,  they  would  be  in  the  wrong  order 
when  you  spell  out  the  state's  name.  In  addition, 
if  you  have  records  from  places  outside  the  United 
States,  Canada  will  come  between  California  and 
Florida,  and  Mexico  will  show  up  in  the  middle  of 
the  M's.  You  need  to  think  through  the  kinds  of 
sorts  you'll  want  to  do  before  defining  files. 

If  you  plan  to  print  specialized  reports  from 
your  compiled  and  sorted  data,  you  will  find 
that  many  programs  let  you  designate  which  sec- 
tion of  the  file,  even  which  fields  in  each  record, 
should  be  printed.  However,  some  programs 
print  line  and  record  numbers  along  with  the  data. 
Be  sure  to  consult  the  documentation  if  you  need 
to  print  a  polished  report  with  no  extraneous 
information. 

Some  Home  Applications 

Perhaps  you  can't  think  of  any  uses  for  a  data 
base  in  your  home.  Or  maybe  you  bought  a  data 
base  program  for  a  specific  purpose  and  are  won- 
dering how  else  you  could  use  it.  Here  are  some 
suggestions, 

•  Cataloging  personal  belongings.  You  can 
use  a  data  base  to  keep  track  of  records,  books, 
tapes,  software,  and  other  items  you  have  a- 
massed.  If  you  have  a  hobby  like  stamp  collecting, 
you  may  find  that  the  program's  sort  capabilities 
enable  you  to  catalog  your  collection  more  fully. 

•  Recording  gifts  and  cards  for  special  occa- 
sions. Giving  and  receiving  gifts  and  cards  for 
weddings,  birthdays,  Christmas,  and  other  holi- 
days can  create  some  organizational  problems.  A 
data  base  may  be  helpful. 

•  Keeping  track  of  subscription  expiration 
dates.  If  you  subscribe  to  several  magazines, 
newspapers,  or  other  periodicals,  you  might  want 
to  use  a  data  base  to  remind  you  when  each  is 
coming  up  for  renewal. 

•  Computerize  your  address  book.  If  you 
have  to  buy  a  new  address  book  every  other  month 
because  you  keep  scratching  out  and  adding 
names  and  addresses,  a  data  base  could  provide  a 
simpler  way  to  track  down  mobile  friends  and 
relatives. 

•  Making  bibliographies  for  work-  or  school- 
related  projects.  If  you're  preparing  a  major  report, 
a  data  base  might  be  a  better  way  of  organizing 
sources  than  a  stack  of  file  cards. 

A  data  base  will  not  organize  your  life  for 
you.  That  still  takes  some  time  and  effort  on  your 
part.  But  if  you  have  a  personal  computer,  and 
are  looking  for  ways  to  make  it  a  practical  part  of 
your  home  life,  you  might  find  a  data  base  a  very 
useful  tool.  (Of 


Your  3  Best  Reasons 

To  Own  A 
Commodore  64" 


The  best  word  processing 
program  of  its  kind 

PaperClip*  is  the  program  that 

makes  word  processing  so  simple 
you'll  never  use  a  typewriter 
again.  Advanced  features  you 
might  only  expect  on  a  much 
more  expensive  system,  yet  so 
easy  to  use  even  a  novice  can 
get  professional  results. 


£*f 


The  easy  file  manage- 
ment system  with 
awesome  capabilities 

Delphi's  Oracle*  is  like  a 
computerized  filing  cabinet 
with  a  brain.  Organize  your  files 
any  way  you  want.  Then  search, 
sort  and  analyse  your 
information  with  effortless 
speed.  So  versatile,  its  power 
will  amaze  you. 


The  interface  to  end  all 
interfaces 

BusCard*  is  a  magic  box  that 
lets  you  add  disk  drives,  hard 
disk,  virtually  any  printer,  and 
a  whole  range  of  other 
peripherals  without  any  costly 
additional  equipment.  Gives 
you  extended  BASIC,  and  other 
impressive  capabilities  your  64 
could  never  handle  before! 


INCLUDED 


'PaperClip,  Delphi's  Oracle  and  BusCard  have  been  developed  specifically  for 
Commodore  computers  by  Batteries  Included.  For  a  full-color  brochure  on  all  3  of  these  packages, 

write  to  Batteries  Included, 
186  Queen  St.  W.,  Toronto,  Ontario,  Canada  M5V  1Z1,  or  call  (416)  596-1405. 

Cummtninre  64  is  a  Trademark  of  GmiriuHluri:  Busiiieu  Machines. 


Dieter  Demmer 

The  Programmer  Behind 
Delphi's  Oracle 


Kathy  Yakal,  Editorial  Assistant 


Your  home  computer  with  a  disk 
drive  or  cassette  recorder  can 
store  a  great  deal  of  information. 
But  if  you  want  to  use  your 
computer  for  record  keeping, 
that  information  needs  to  be 
easily  entered  and  retrieved, 
and  probably  in  some  sort  of 
logical  order.  Data  bases  meet 
that  need.  Here's  a  look  at  one 
of  the  most  popular  data  bases 
for  Commodore  computers, 
Delphi's  Oracle,  and  the  man  who 
designed  it,  Dieter  Demmer. 


In  explaining  what  a  data  base  is,  people 
often  compare  it  to  a  box  containing  index 
cards.  Let's  say  you  use  such  a  filing  system 
to  keep  track  of  addresses.  The  box  itself  is 
the  file.  Each  card  is  a  record  of  information  about 
one  person.  Every  record  consists  of  several  en- 
tries, or  fields,  like  name,  street  address,  city,  state, 
and  telephone  number.  To  be  useful,  a  file  like 
this  would  need  to  be  in  some  kind  of  order,  prob- 
ably alphabetical,  and  require  periodic  revision. 

A  data  base  is  set  up  the  same  way.  Basically, 
it  is  a  program  that  allows  you  to  set  up  a  filing 
system,  enter  data,  then  order  and  revise  those 
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files.  Some  data  bases  are  designed 
for  specific  purposes,  like  mailing 
lists;  others  let  you  define  your  own 
files. 

Delphi's  Oracle  is  an  example  of 
the  latter.  Published  by  a  Canadian 
software  company.  Batteries 
Included,  it's  a  powerful  data  base 
with  a  storage  capacity  limited  only 
by  hardware.  "Using  a  Commodore 
64  and  a  1541  disk  drive,  you  could 
fill  an  entire  disk  with  records  and 
still  have  room,"  says  program 
designer  Dieter  Demmer. 

A  Technical 
Background 

Programming  and  modifying  Delphi's  Oracle  took 
almost  a  year,  but  Demmer's  many  years  of  tech- 
nical experience  paid  off.  Born  in  Cologne, 
Germany,  he  received  a  Bachelor  of  Science  degree 
from  the  University  of  Cologne  and  began  a 
15-year  stint  with  Litton  Industries  in  research 
and  development.  He  spent  another  three  years 
with  Control  Data  in  Minneapolis  as  a  program 
analyst,  then  returned  to  Litton  as  a  field  service 
representative. 

"I  pretty  much  taught  myself  how  to  use 
computers,"  says  Demmer.  "I  started  learning 
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If  you've  been  wanting  to  play  Q*bert,  but  haven't  been  able  to  find  it  available 
t  for  your  home  system,  your  time  has  come.  Because  now  you  can  keep 
things  hopping  with  any  of  these  popular  home  video  and  computer  formats. 
Get  going  to  your  nearest  video  store  and  get  Q*bert 
today.  And  while  you're  there,  checkout  Parker 
Brothers'  POPE YEf  FROGGEIC  TUTANKHAM,™ 
and  SUPER  COBRA.™  All  the  great  Arcade  Action 
games,  now  in  all  the  great  home  formats. 
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back  in  the  late  sixties  on  the  big  vacuum  tube 
computers." 

Tired  of  all  the  travel  involved  in  his  job  at 
Litton,  Demmer  started  exploring  other  possibil- 
ities. He  had  purchased  an  8K  Commodore  PKT 
several  years  before  and  started  programming.  It 
wasn't  his  first  experience  with  home  computers, 
though.  In  1968,  he  built  his  own  16-bit  micro- 
computer with  32K  of  memory.  "It  never  did  have 
much  of  an  operating  system,"  says  Demmer. 
"It's  kind  of  a  joke  now,  with  all  of  the  modern 
languages  available.  I  still  use  it  as  a  terminal, 
though." 

Saving  Time  And  Space 

Demmer  left  Litton  and  joined  Batteries  Included 
in  1982.  Delphi's  Oracle  was  his  first  project.  It  runs 
on  all  Commodore  equipment,  though  it  was 
designed  on  the  8000  series. 

"Information  storage  on  the  Oracle  is  limited 
by  the  disk  drive,"  says  Demmer.  "The  1541  disk 
system  was  never  meant  to  handle  relative  files. 
You  have  to  coax  it  into  doing  it." 

Once  files  are  entered  into  a  data  base,  the 
computer  must  perform  "housekeeping"  func- 
tions. Every  bit  of  available  space  must  be  used, 
so  the  data  must  be  constantly  sorted  and  re- 
sorted. And  it  can  be  very  irritating  if  your  record 
entry  is  interrupted  by  those  functions. 


VIC  20 


JI 


Now  you  can  have  the  memory  power  of 

the  64,  flexible  memory  control,  expansion 

port  and  more. 


$129.95 

ft  mosaic 

ElfCTRONICS,  INC, 
Call  tor  your  nearest  Mosaic  Dealer 
1-800-547-2807,  In  Oregon  653-7885 

MC  20  h  crrecWwBd  ttademarkct  Commodore  Baslnmi  Machines,  Inc. 
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Jelect  fr-QH  nenu  below: 
y  =  Set  data-file  na«. 

<   =  Create  a  new  data  file. 

-  New  record  format 

-  Modify  existing  fornat 

£   =  Modify  an  existing  file. 

-  Add  new  record 

-  Delete  records 

-  Change  records 

1  =  Searching  &  Reporting. 

-  Find  records 

-  Print  reports 

£  =   Disk   Utilities. 
BS  =  Exit   fro*  this  prograM. 
Enter   Selection  -  I 
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The  main  menu  in  Delphi's  Oracle  provides  easy  access  to 
the  main  program  sections  which  allow  you  to  create  and 
update  data  (wst*  records  and  files. 

"There  are  two  ways  to  do  the  sorting,"  says 
Demmer.  "Since  it  takes  a  considerable  amount 
of  time,  I  programmed  the  Oracle  to  sort  after  the 
user  has  finished  updating.  So  there  are  no  more 
time  delays  after  you've  entered  6000  records 
than  there  are  after  you've  entered  three." 

Not  For  The  Novice 

Good,  clear  documentation  is  essential  to  using  a 
data  base  successfully.  Without  it,  even  the  most 
experienced  computer  user  may  waste  hours  re- 
creating files  or,  worse  yet,  lose  them. 

The  instructions  accompanying  Delphi's  Oracle 
run  more  than  200  pages.  Demmer  was  closely 
involved  in  preparing  this  document,  and  says  it 
is  easy  to  understand,  but  takes  time.  "The  Oracle 
is  rather  complex  for  the  novice  user,"  he  says. 

But,  he  continues,  there  are  many  home  ap- 
plications for  which  his  data  base  is  well  suited, 
like  personal  properly  inventory,  keeping  track  of 
investments,  and  correspondence  lists. 

The  Oracle's  output  files  are  compatible  with 
PaperClip,  a  word  processing  package  that  is  also 
published  by  Batteries  Included.  "In  conjunction 
with  a  word  processor,  the  Oracle  becomes  a  very 
powerful  package,"  says  Demmer.  "It  could  be 
used  very  well  by  someone  with  a  small  business." 

More  On  The  Way 

Demmer  believes  that  part  of  the  reason  for  the 
Oracle's  initial  success  was  its  early  arrival  in  the 
home  applications  software  market.  "There  just 
wasn't  anything  else  available,"  he  says.  "We 
don't  expect  it  to  stay  that  way,  though." 

Besides  updating  his  first  versions  and  trans- 
lating them  for  use  on  other  home  computers, 
Demmer  has  been  working  on  "mini-data  bases": 
programs  designed  for  one  specific  kind  of  record 
keeping.  <Sf 
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appears  across  the 

screen.  Jump  on  an 

escaping  monster.  Blam!  It's  gone  in  a  flash 

Only  to  reappear  out  of  thin  air. 


Keep  bouncing  Joe  to  original 
music  on  realistic  3-dimensional 
cylinders.  All  the  characters  in 
this  rollicking j 
game  are 


What/s  ahead  with  PogoJoelvi$  $10,000. 
Simply  tell  us  what  magic  word  appears 

after  Pogo  Joe's  tenth 
screen.  If  your  name 
is  drawn  from 
among  the  correct 
answers  you'll  win 
$10,000! 

No  purchase  is 
necessary.  Youll 
find  entry  forms  at 
any  store  that  sells  Screenplay1"  games. 

But  if  you  don't  win  you  can't  lose.  Pogo 
Joe™  is  so  much  fun  you'll  jump 
for  joy  no  matter  what  _J29y« 
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Box 3558.Chapel Hill, NC 27514  800-334-5470 
Pogojoe  in  48~64Kon  the  Atari  and  Commodore  64.See  your local  software dealer. 


CUT-OFT! 

All-Machine- Language  Game 
For  Commodore  64  And  VIC-20 


In  tiie  64  version,  same  tricky  maneuvering  has  the  blue 
player  nearly  cut  off :. 

Tom  R.  Halfhill,  Editor 
COMPUTED  PC  &  PCjr  Magazine 

"CUT-OFF!"  is  a  fast-paced  two-player  game 
for  the  Commodore  64  and  unexpanded  VIC- 
20.  Programmed  entirely  in  machine  language, 
it  has  ten  levels  of  difficulty — ranging  in  speed 
from  moderately  slow  to  impossibly  fast.  The 
VIC  version  requires  one  joystick  and  the  64 
version  requires  two.  Users  of  expanded  VICs 
should  unplug  or  switch  off  their  memory  ex- 
panders before  typing  in  or  running  the  game. 


Some  computer  games  over  the  years  have  become 
classics.  Usually  they  are  simple  in  concept,  yet 
universal  in  appeal,  and  general  enough  to  be 
translated  for  almost  any  computer.  Same  examples 
arc  Pong,  the  granddaddy  of  all  videogames, 
Breakout,  Lunar  Lauder,  and  the  venerable  Space 
Invader*.  For  legal  reasons  they  may  be  disguised 
bv  different  names,  but  there  probably  isn't  a 
home  computer  or  videogame  machine  anywhere 
for  which  some  version  of  these  all-time  favorites 
isn't  available. 

Another  classic  game  is  Blockade.  Again,  it 
goes  by  different  names  (sometimes  Surround), 
but  the  basic  concept  remains  the  same:  Two 
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The  red  player  is  almost  trapped  at  the  bottom,  but  may  be 
able  to  escape  (VIC  version). 

players  square  off  against  each  other  by  steering  a 
moving  line  around  the  screen,  trying  to  head  off 
the  other  player  or  force  him  to  crash  into  a  wall 
or  his  own  trail.  This  concept  dates  back  to  the 
early  days  of  videogames.  In  fact,  the  very  first 
videogame  I  ever  played  was  a  Blockade-style 
game.  It  was  during  the  mid-1970s,  and  a  friend 
and  I  encountered  the  machine  in  a  dimly  lit  cafe. 
By  today's  standards  the  game  was  downright 
primitive.  No  color,  crude  sound  effects,  and  slow 
action.  Yet  we  had  never  played  anything  like  it 
before.  (We  thought  it  would  never  catch  on,  be- 
cause it  cost  25  cents  per  play  at  a  time  when  a 
quarter  bought  you  three  plays  on  most  pinball 
machines.) 

Years  later,  the  basic  concept  of  Blockade  was 
revived  and  updated  in  the  1982  film  TRON.  In 
this  Wall  Disney  production,  humans  trapped 
inside  a  bizarre  computer  world  were  forced  to 
become  gladiators  on  "light  cycles" — space-age 
motorcycles  which  left  walls  in  their  wakes,  coun- 
terparts of  the  lengthening  trails  in  Blockade. 

Anyway,  that's  the  story  behind  the  latest 
incarnation  of  this  popular  game,  now  dubbed 
"CUT-OFF!"  It  preserves  all  the  traditional  con- 
cepts and  includes  color,  sound,  and  the  broad 
range  of  speed  levels  possible  only  in  a  program 
written  entirely  in  machine  language. 
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The  world  may  be  short  of  oil.  And  short  of  jobs,  But  there's  no  shortage  of  entertainment. 
Arcades.  Movies.  Amusement  parks.  TV  Concerts.  Records.  You've  got  your  choice.  And  every  day, 
more  of  you  are  choosing  HesWare™  computer  games. 

That's  because  only  the  best  games  earn  the  HesWare  title.  Tough,  challenging,  arcade  quality 
action  games  like  Gridrunner™  Predator,™  Retro  Ball,™ and  Robot  Panic™ 

Mind-bending  strategy  and  role  playing  adventures 
like  Pharaoh's  Curse™  and  Oubliette™ 

Zany  new  titles  that  have  to  be  seen  to  be  believed. 
Would  you  believe  Attack  of  the  Mutant  Camels™?? 

You  don't  need  an  expensive  computer  to  enjoy 
HesWare  action,  either.  HesWare  programs  are  available 
on  cartridge,  diskette  or  cassette  for  VIC  20"  Commodore  64" 
Atari*  and  IBM®  personal  computers. 

When  you  pick  up  a  HesWare  game,  you  know  it's  ready 
for  the  toughest  test  of  all:  beating  out  the  tough  competition 
for  your  attention. 

HesWare  games.  Just  one  of  the  ways  HesWare  is 
expanding  the  computer  experience.  Look  for  them  at  your 
favorite  software  retailer. 


Pleases  the 

tough 
customer 


HesWare 


VIC  20  and  Commodore  64  are  trademarks  of  Commodore  Electronics  Lid.  Atari  is  a  registered  trademark  of  Atari.  Inc. 
IBM  PC  is  a  registered  trademark  of  International  Business  Machines.  Pharaoh's  Curse  is  a  trademark  ol  Synapse  Software 
Oualitttc  Is  a  trademaik  of  ISA  Softwirt 


Human  Engineered  Software 

150  North  Hill  Drive 

Brisbane,  CA  94005 

800-227-6703 

(in  California 

800  6327979) 

Dept.  C20 


c  :<?B3 


Notes  On  VIC  Tiny  MLX 

Charles  Brannon,  Program  Editor 

There's  just  enough  room  in  a  5K  (unex- 
panded) VIC  to  hold  MLX.  Unfortunately, 
there  isn't  room  for  anything  else,  such  as 
the  machine  language  program  you  need  to 
type  in.  It  might  seem  you  need  to  use  a  mem- 
ory expander.  This  would  be  unfortunate, 
though,  because  the  machine  language  for 
the  VIC  version  of  "CUT-OFF!"  will  fit  in  an 
unexpanded  VIC. 

Rather  than  leaving  out  some  readers, 
we  decided  to  see  if  MLX  could  be  shortened 
enough  to  hold  both  the  MLX  machine  lan- 
guage editor  and  the  machine  language  for 
CUT-OFF!  The  only  way  to  do  this  is  to  re- 
move parts  of  MLX.  This  means  you  have 
fewer  commands  at  your  disposal  than  in 
the  complete  VIC  MLX  program. 

Specifically,  these  things  were  cut  out  to 
save  memory: 

•  the  MLX  logo 

•  the  INPUT  statements  for  starting  and 
ending  address,  and  their  appropriate  error 
checks.  Instead,  the  values  you  would  nor- 
mally use  are  just  assumed  in  line  210. 

•  the  New  Address  command.  This  means 
that  you  have  to  type  in  CUT-OFF!  all  in  one 
sitting,  since  there  is  no  way  to  change  the 
address  your  typing  is  POKEd  into.  Cor- 
respondingly, you  cannot  SAVE  your  pro- 
gram until  you've  finished  typing,  and  there 
is  no  way  to  LOAD  in  a  previously  typed 
version  of  CUT-OFF! 

•  the  Display  command 

•  as  mentioned,  the  Load  command 

What  does  that  leave  you?  Well,  you  can 
still  flawlessly  enter  the  program  on  an  un- 
expanded VIC.  All  the  error  checking  with 
checksums  remains,  as  well  as  a  tape  or  disk 
Save  when  you  finish  your  typing.  Although 
this  is  a  big  trade-off,  at  least  you  don't  need 
an  additional  memory  expander  to  type  in 
and  play  CUT-OFF! 


Typing  CUT-OFF! 

Pure  machine  language  programs  are  usually 
more  difficult  to  enter  than  BASIC  programs  be- 
cause they  consist  of  seemingly  endless  streams 
of  numbers.  To  make  typing  CUT-OFF!  easier, 
we've  listed  the  programs  in  MLX  format. 

You  may  already  be  familiar  with  MLX  if 
you've  typed  in  some  of  the  machine  language 
programs  published  in  earlier  issues.  If  you're  not 
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familiar  with  MLX,  it's  a  utility  designed  by  Pro- 
gram Editor  Charles  Brannon  to  make  typing  er- 
rors almost  impossible.  To  learn  how  to  use  MLX, 
see  the  article  describing  it  elsewhere  in  this  issue. 
Commodore  64  users  who  have  previously  typed 
in  MLX  can  use  it  again  for  CUT-OFF!  VIC  users, 
however,  must  use  a  new  version  of  MLX  adapted 
especially  for  CUT-OFF!  This  stripped-down  ver- 
sion of  MLX  (dubbed  "Tiny  MLX")  allows  you  to 
enter  the  game  on  an  unexpanded  VIC,  something 
not  possible  with  the  full-length  MLX.  {See 
accompanying  article,  "Notes  On  VIC  Tiny 
MLX.") 

Here's  the  information  you'll  need  to  enter 
CUT-OFF!: 

Commodore  64  CUT-OFF! 

Starting  address — 49152 

Ending  address — 50663 

To  run,  enter  SYS  49152 

To  stop,  press  RUN/STOP— RESTORE 

VIC-20  CUT-OFF! 

(The  starting  and  ending  addresses  are  "built  into" 

Tiny  MLX.) 

Starting  address — 6063 

Ending  address — 7658 

To  run,  enter  SYS  6063 

To  stop,  press  RUN/STOP— RESTORE 

Remember,  to  load  a  machine  language  pro- 
gram from  disk  or  tape,  you  must  use  this  special 
form  of  the  LOAD  command; 

LOAD"filename",8,l     (for  disk) 
LOAn"filename",l,l     (for  tape) 

If  you  forget  to  append  the ,  1  to  the  command, 
the  program  loads  into  the  wrong  area  of  memory 
and  will  not  work. 

Starting  The  Game 

After  you  enter  the  proper  SYS  command,  the 
game  screen  appears  instantly.  (One  of  the  best 
things  about  machine  language  is  that  you  don't 
have  to  wait  around  for  programs  to  initialize.) 

The  opening  screen  allows  you  to  select  a 
skill  level  ranging  from  0  {the  slowest  speed,  suit- 
able for  youngsters)  to  9  (recommended  for 
su perh u mans  only).  The  skill  levels  are  spaced 
equally  apart,  so  you  might  want  to  start  at  3  or  4. 
The  level  you  select  remains  the  same  for  the  entire 
game.  To  change  levels  in  the  middle  of  a  game, 
press  RUN/STOP— RESTORE  and  restart  the  pro- 
gram with  the  SYS  command.  (Of  course,  this 
cancels  the  game  in  progress.) 

To  choose  a  skill  level,  move  the  joystick  up 
or  down  (joystick  1  on  the  64  version).  You'll  see 
the  number  on  the  screen  change  and  "wrap 
around"  if  you  go  below  0  or  above  9.  To  lock  in 
your  choice  and  begin  the  game,  press  the  fire 
button  (joystick  1  on  the  64  version). 

The  game  starts  with  the  players  aimed  at 
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Boy,  have  you  taken 
a  wrong  turn.  One  moment 
you're  gathering  treasure 
and  the  next  you're  being 
eyed  like  a  side  of  beef. 

You're  in  the  Gateway 
to  Apshar  The  new  cart- 
ridge version  of  the  Computer  Game  of  the  Year* 
Temple  of  Apshai."" 

Gateway  has  eight  levels.  And  over  400  dark, 
nasty  chambers  to  explore.  And  because  it's  joy- 
stick controlled,  you'll  nave  to  move  faster  than  ever. 
But  first  you'll  have  to  consider  your  strategy. 

*Gtune  Manufacturer  Association,  iejhi 


.  •. . 


Is  it  treasure  you're  after?  Or  glory?  You'll 
live  longer  if  you're  greedy,  but  slaying  mon- 
sters racks  up  a  higher  score. 

The  Apshai  series  is  the  standard  by 
which  all  other  adventure  games  are  judged. 
And  novices  will  not  survive. 

They'll  be  eaten. 
One  player;  Temple  of  Apshai,  disk/cassette; 
Gateway  to  Apshai,  cart  ridge,  joystick  control. 


{tHUVrtMVVfHtVri 


STRATIGY  GAMIS  FOR  THE  ACTION-GAME  PIAYIR. 


lH3 


Still  the  Best! 
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Rated  THE  BEST  educational 
program  for  the  VIC  20™  by 
Creative  Computing  magazine. 

Commodore  64  version:  "This 

is  the  best  typing  tutor  we  have 

seen  yet;  It  can  get  your 

children  touch  typing  In  short 

order  and  bring  an  old  hand  up 

to  speed.  Includes  excellent 

training  modules  and  an 

arcade  type  mode  to  liven 

things  up  and  put  some 

pressure  on;  *••*+"  INFO-64 

Our  customers  continue  to  tell 

us  of  their  success. . .. 

!'. .  delighted  with  my  son's 

progress  ...  he  is  the  only 

one  in  his  second  grade  class 

who  touch  types  at  She  computer.' 

'58  year  old  man  writes) . . ,  "great,  excellent.  To  me  a  source 

of  great  learning  ...  I  just  can't  express  how  much  I  have 

enjoyed  It!" 

In  daily  use  by  schools  across  the  USA. 

"Computer  aided  instruction  at  its  best"  Commander  magazine 

TYPING  TUTOR  +  WORD  INVADERS 

The  proven  way  to  learn  touch  typing. 
COMMODORE  64  Tape $21.95 
COMMODORE  64  Disk  S24.95 

VIC20(unexpanded)  Tape  $21.95 
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IFR 

{FLIGHT  SIMULATOR) 

CARTRIDGE 
FOR  THE  VIC  20 

COMMODORE  64 

DISK  OR  TAPE 

$39.95 

JOYSTICK  REQUIRED 


Put  yourself  In  the  pilot's  seat!  A  very  challenging  realistic 
simulation  of  instrument  flying  In  a  light  plane.  Take  off, 
navigate  over  difficult  terrain,  and  land  al  one  of  the  4  airports. 
Artificial  horizon,  ILS,  and  other  working  Instruments  on  screen. 
Full  aircraft  features.  Realistic  aircraft  performance  — 
stalls/spins,  etc.  Transport  yourself  to  a  real-time  adventure  In 
the  sky.  Flight  tested  by  professional  pilots  and  judged 
"terrific"! 

■■■  Shipping  and  handling  $1.00  per  jUJUJi 
■MB  order.  CA    residents  add  6%  lax.  WW 

ACADEIilV 

SOFW^RE 

P.O.  Box  6277,  San  Rafael,  CA  94903  (415)  499-0850 

Programmers  Write  to  our  Now  Program  Manager  concerning 

any  exceptional  VIC  ZClTM  or  Commodore  MTM  geme 

or  other  program  you  hove  developed. 


each  other  head-on.  With  the  64  version,  joysticks 
1  and  2  control  the  left  and  right  players,  respec- 
tively. To  steer,  move  the  joystick  up,  down,  right, 
or  left.  Diagonal  motion  is  not  allowed. 

Since  the  VIC  has  only  one  joystick  port,  the 
right-hand  player  must  use  the  keyboard  for  con- 
trol. Don't  assume  that  this  compromise  neces- 
sarily puts  the  keyboard  player  at  a  disadvantage. 
With  a  little  practice,  some  people  seem  to  adapt 
to  the  keyboard  and  gain  more  control  than  the 
person  with  the  joystick.  This  is  due  partly  to  the 
arrangement  of  the  control  keys,  an  arrangement 
sometimes  seen  in  Apple  games: 

(up) 
I 
(left)  J   K  L  (right) 
(down) 

Notice  how  this  differs  from  the  usual  I-J-K-M 
diamond  pattern.  Although  the  diamond  seems 
the  most  logical  way  to  go  for  four- way  movement, 
in  practice  it's  clumsy  compared  to  this  I-J-K-L 
arrangement.  Try  it.  Rest  your  right  index  finger 
on  the  J  key,  your  fourth  finger  on  the  L  key,  and 
then  move  your  middle  finger  up  and  down  on 
the  I  and  K  keys  to  control  vertical  movement. 
You  may  want  to  adopt  this  pattern  for  your  next 
keyboard-controlled  game. 

The  joystick  buttons  toggle  a  pause  feature. 
To  freeze  the  action,  quickly  press  and  release  the 
button  {either  joystick  button  works  with  the  64 
version).  This  leaves  you  free  to  answer  the  phone 
or  do  other  things.  To  restart  the  action,  press 
and  release  the  button  again.  (The  keyboard  player 
in  the  VIC  version  cannot  activate  this  feature.) 

Scoring  And  Winning 

There  are  four  ways  you  can  crash:  hitting  a  wall, 
running  into  the  other  player's  trail,  crossing  your 
own  trail,  or  backing  into  yourself  by  trying  to 
reverse  your  direction. 

After  a  crash,  the  surviving  player  is  awarded 
points  equal  to  the  number  of  segments  in  the 
crashed  player's  trail.  This  means  that  the  longer 
the  players  last  before  crashing,  the  more  points 
are  at  stake.  Thus,  it's  possible  to  catch  up  even  if 
you're  way  behind. 

Each  time  you  crash,  you  lose  one  "life," 
Each  player  starts  with  ten  lives,  and  the  game 
ends  when  one  player  runs  out.  After  each  crash, 
the  screen  updates  the  score  and  reminds  you 
how  many  lives  each  player  has  left.  To  restart 
each  round,  press  the  joystick  fire  button. 

When  the  game  is  over,  you  get  a  chance  to 
change  the  skill  level  for  the  next  game.  Just  to  get 
a  peek  at  how  fast  machine  language  can  be,  try  a 
game  at  level  9.  You'll  be  lucky  if  you  can  make 
one  turn  before  crashing  into  a  wall.  Yet  even  this 
level  had  to  be  slowed  down  with  delay  loops! 

See  program  listings  on  page  165.  IB 


■o4    *'    «-  •         -■*, ,      v    *■'-,>*'*> 

You'll  never  make 
Grand  Prix  champion  just 
driving  in  circles. 

You've  got  to  stop 
sometime.  The  question  is 
when.  Right  now  you're 
in  the  lead.  But  the  faster 
you  go,  the  more  gas  you  consume.  And  the 
quicker  your  tires  wear  down. 

If  you  do  pull  into  the  pits,  though,  you  lose 
precious  seconds.  So  it's  up  to  you  to  make  sure  the 
pit  crew  is  quick  with  those  tires.  And  careful  with 
that  gas.  Otherwise,  poof!  you're  out  of  the  race. 


So  what'il  it  be,  Mario?  Think  your  tires 
will  hold  up  for  another  lap?  Or  should  you 
play  it  safe  and  go  get  some  new  ones? 

Think  it  over.  Because  Pitstop '  is  the 
one  and  only  road  race  game  where  winning 
is  more  than  just  driving.  It's  the  pits. 

Goggles  not  included. 

One  or  two  players;  6  racecourses, 

joystick  control. 


STRATEGY  GAMES  FOR  THE  aCTlOH-GAMEPtAYER, 
See  your  retailer  [or  available  computer  formats. 


"Trenchfire"  is  a  fast-action  space  game  which 
uses  the  speed  of  machine  language  (ML),  the 
power  of  sprite  graphics,  and  a  special  trick  to 
simulate  motion.  Originally  written  for  the  64, 
we've  added  an  all-ML  version  for  the  VIC. 


As  the  game  begins,  you  find  yourself  on  a  distant 
planet,  speeding  through  a  trench  formed  by  an 
earthquake  fault.  You  are  in  your  trusty  craft, 
attempting  to  infiltrate  evil  King  Krypos'  lair, 
where  he  holds  your  king  captive.  But  first  you 
must  face  King  Krypos'  deadly  kamikaze  drone 
ships.  The  battle  never  seems  to  end — you  blast 
and  dodge  debris  only  to  encounter  another  wave 
of  enemy  ships.  Only  total  concentration  and 
quick  reflexes  bring  success  in  "Trenchfire." 

The  64  Version 

Written  in  BASIC,  with  several  ML  subroutines, 
Program  1  (the  64  version)  requires  simply  typing 
RUN  after  entering  and  SAVEing  the  program. 
Using  a  joystick  in  port  1,  you  must  shoot  and 
destroy  the  drone  ships  before  they  get  too  close. 
You  can  also  avoid  them  by  dodging  left  or  right. 

You  begin  the  game  with  three  ships.  How- 
ever, a  new  ship  is  awarded  for  every  1000  points 
(a  total  of  seven  ships  is  possible). 

Simulating  motion  in  Trenchfire  is  accom- 
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plished  by  switching  the  colors  of  a  predrawn 
trench.  The  process  uses  custom  characters  in 
multicolor  character  mode  and  a  short  ML  routine 
to  switch  background  color  registers.  Another  ML 
routine  controls  joystick  reading  and  ship  move- 
ment to  provide  fast  response. 

The  VIC  Version 

The  VIC  version  requires  an  8K  expander  to  enter 
and  save  Trenchfire.  You  must  also  use  the  ab- 
breviated version  of  MLX  found  elsewhere  in  this 
issue  (see  "CUT-OFF!"). 

Follow  these  procedures  carefully: 

1.  Insert  the  8K  expander,  turn  on  your  com- 
puter, and  enter  this  line: 

POKE  44,24:POKE  24*256,0:NEW 

2.  Enter  the  short  version  of  MLX. 

3.  Delete  tine  100  from  the  MLX  program, 
and  change  the  following  line: 

210  S  =  4352:E  =  6079 

4.  Type  RUN. 

5.  Type  in  the  VIC  version  (Program  2)  of 
Trenchfire. 

6.  SAVE  what  you  typed  into  MLX  to  tape  or 
disk. 

7.  Turn  your  computer  off  and  remove  the 
8K  expander.  Turn  it  back  on. 


designed  by  ^fa+d+d^fi*****- 

C-64  conversion  by  Adam  Belli n 

From  the  creator  of  AS1W CHASE™  (Sci-Fi/Fantasy  COMPUTER 
GAME  OF  THE  YEAR,  1 984)'  and  My  First  Alphabet™ 
(winner  of  the  Atari*  Star  Award)  comes  BRISTLES. 

D  Reviews;  A+  "The  action  is  fast  and  frenetic  ...  If  you  want  a  game 
with  definite  patterns,  strategies,  great  sounds  and  plenty  of  action— 
this  is  the  one."'  #1  Best  Selling  computer  software  in  New  York.3 
D  Features:  Real  Time  Animation TU,  Sex-Seiect™,  Slow  motion,  1  to  4 
player  option,  hidden  messages,  8  game  screens  each  with  6  skill 
levels,  hi-res  graphics  and  "invisible  paint." 
□  Systems  COMMODORE  64™  &  ATARI  HOME  COMPUTERS'" 


Actual  Game  Screens 


Starring  Flip  the  Kangaroo 
and  Mitch  the  Monkey 


designed  by  H«^~-cArVU^«*<r- 


C-64  conversion  by  Paul  Kanevsky 

This  number  one  Best  Seller  is  Jim's  first  game  for  First  Star. 
Here's  what  the  reviewers  say  about  this  award  winning 
designer's  first  computer  game. 

□  Reviews:  "The  audio-visuals  are  excellent ...  A  definite  HOTLINE 
picked  hit."*      -kit-kit  (highest  rating) . . .  "quite  a  differeni  game"5 
"...  super  graphics,  first  class  sound  effects  and  challenging  game  play"6 

□  Features:  7  differeni  animated  intermissions,  game  screen  actually 
ftps  upside  down,  36  levels.  1 3  d  liferent  scrolling  screens,  arcade 
sounds  and  music,  solo  or  2  player  option. 
D Systems:  COMMODORE  64  &  ATARI  HOME  COMPUTERS 


AsmcmsE' 


BOULDER  DASH" 


MORE  GOOD  NEWS... 
MORE  GAMES ! 
MORE  SYSTEMS ! 


designed  by  "^Zi*i-Jt£^fi<*e**-- 
ATARI  HOME  COMPUTERS 
COMMODORE  64 

conversion  by  Mike  Crick 

BOING! 


••tidfai,  and  {^*0*Y 

ATARI  HOME  COMPUTERS 

PC/PC  fr.'"  conversion  by  ^ftcfcc&jpit 


PANI C  BUTTON1 


designed  by  - 

ATARI  VCS  26 


>  and 


designed  by  t^udl'%*AtYsJ!i4 
TRS-BO  COLOR  COMPUTER  ' 


All  computer  software  available  in 
DISK,  TAPE  and  CARTRIDGE 

IN  A  STORE  NEAR  YOU. 

Call  1  800-223-1545 

For  your  local  dealer/distributor. 
In  New  York  212  532-4666 


22  Easi  41  Si . 

Iuhiujfirew      New  York.  NY  10017 
in  aftiltaton  with  O  Warner  Software.  Inc 
a  Warner  Gcmmuivcaiturc  Company 

Bntuc,  •'■:"';  '■-.'■. v..'J  RbbJ  t.  x-':  ~"  mattofl  Se* 
Soled  Flic  and  Flop.  Boulder  Oath,  eoiNQi 
and  P*imc  Button  am  trademarks  ol  Fust  Star 
Software,  Inc  Atari  ts  a  registered  trademark  ol 
A(an.  Inc  Aran  Horne  Computers.  Atari  VCS- 
2600  and  My  Rsl  Atpftanai  are  trademarks  oi 
Atari.  Inc  Commodore  64  is  a  trademark  o! 
Commodore  Business  Macrt'nes.  Inc.  PC  and 
PC  Jr  afe  trademarks  ol  imrr national  Business 

THS-80  Color  Computer  Is  a 
trademark  ol  T.mdy  Corporation 
All  rtflha  rswrvsd  ,<;'i  196-5  First  3t*(  SoftwrjJO.  Inc. 
Punted  mUSA 

1  Electronic  Games  Marjanno    a  Etecuorrc  Qamos  I  Hoti.no 

2  Computer  G  an  mi  Maofui  ne    5  Video  Game  Updalo 

3  East  Side  Express  8  Dealertcopo  Magazine 


LEARN 

MACHINE  LANGUAGE 


Have  Complete  Control 
Over  Your  Commodore  64 

•  Write  Fast-action  Arcade-style  graphics 

•  Fully  use  the  Music  synthesizer 

•  Completely  understand  the  Computer 

•  Develop  your  skills  inventory 


Learn  with  the  Tutorial  that  comes 
complete  with  a  Full  set  of  professional 
quality  development  tools. 

Add  Machine  Language  to  your  bag 
of  tricks. 

DEVELOP-64  includes  a  Co-resident 

Assembler  /  Editor  /  Decoder  /  Debugger/  Loader 
/Saver 

PLUS  the  Machine  Language  Programmer's 
Bible: 

"Inside  The  Commodore  64" 


Call  Toil-Free  1-800-328-0145 
or  in  Minnesota  call:  (6121871-4505 

P.O.  Box  7426  Minneapolis,  MN  55407 
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You  must  act  quickly  to  defend  yourself  against  the  attacking 
spaceships  (64  version). 

8.  Now  LOAD  "TRENCHFIRE",1,1  for  tape. 
For  disk,  LOAD  "TRENCHFIRE",8,1. 

9.  Enter  SYS  4352  to  run  the  program. 

The  VIC  version,  which  is  all  ML,  plays  almost 
identically  to  the  64  version,  but  has  added  fea- 
tures. You  start  with  three  ships,  earn  a  bonus 
ship  for  every  1000  points,  and  can  achieve  a 
maximum  of  seven  ships.  Extra  features  include  a 
pause  function  (press  SHIFT/LOCK)  for  freezing 


In  the  VIC  version  of  "Trcnchfire,"  the  player  has  just 
launched  two  missiles. 

the  game  at  any  time,  and  four  levels  of  play. 
Press  one  of  the  function  keys  to  choose  a  level: 


fl  beginner 
f.'i  intermediate 


f5  advanced 
f7  expert 

If  you  don't  choose  a  level  of  play,  the  program 
defaults  to  the  intermediate  level.  The  expert  level 
is  only  for  the  strong  of  heart.  You  also  go  up  one 
level  for  every  250  points  scored. 

See  program  listings  on  page  151.  (Bf 


NOTHING  BUT  THE  BEST 


BEACH  -HEAD 


GENERAL  QUARTERS!  BATTLE 
STATIONS!  As  chief  commander  of  land  and  sea 
forces  in  the  Pacific,  your  mission  is  to  obtain  a 
quick  naval  victory,  and  invade  enemy  territory  with 
land  forces.  BEACH-HEAD™ is  a  i()0%  machine 
language  game  and  offers  multi-screen  action  with 
high  resolution,  three  dimensional  graphics, 
(Suggested  retail  price...$34.95) 


NEUTRAL  ZONE,*  takes  you  to  the  outer 
edges  of  the  galaxy,  to  ALPHA  IV,  a  long  range 
early  warning  station  whose  mission  is  to  detect 
alien  intruders  from  other  galaxies. 

NEUTRAL  ZONE,,  is  the  ultimate  in  high 
resolution,  fast  action,  arcade  quality  games.  It  is 
written  in  100%  machine  language  and  features 
smooth  scrolling  of  (he  360  degree  panorama.  The 
realism  is  unbelievable.  (Suggested  retail 
price...$34.95) 


I 


|  Jflagtec  Composer 


xmm  t    Jtum  t«   aim  ■    Jiua  i 


SPRIII  MASILR.m  is  not  just  another  sprite 
editor.  It's  the  finest  utility  available  for  multicolor 
sprite  animation  and  game  programming  1 1  will 
have  you  making  full  color  animated  objects  in  just 
minutes.  People  runniug.hirds  flying  or  tanks  rolling 
are  a  snap  with  Spritemaster.  It  will  automatically 
append  your  sprites  to  other  programs.  It's  easy 
to  use  and  understand  and  comes  with  a  full  21  page 
instruction  manual  and  samples  of  animated  sprites 
to  get  your  started.  (Suggested  retail  price...S34.95) 


MASTER  COMPOSER,,  is  the  perfect  utility 
for  programming  music  on  the  Commodore  64.  It 
is  fun,  easy  to  use  and  very  powerful.  Master 
Composer  takes  full  advantage  of  the  sound 
synthesizer  to  produce  all  types  of  music  from 
simple  melodies  to  intricate  compositions.  You 
can  compose  your  own  musical  scores,  experiment 
with  different  arrangements  and  instruments, 
program  your  own  accompanyment,  or  just  type 
in  your  favorite  sheet  music.  (Suggested  retail 
pri*ce...$39.95) 


SPRtTEMASTEFT 


AVAILABLE  NOW  AT  YOUR  LOCAL  COMMODORE  DEALER 
ACCESS  SOFTWARE,  INC.    "25  EAST  900  SOUTH     SALT  LAKE  CITY,  UTAH  S41U5     (80U  532-1134 

Coriimadrin*  64  is  a  rcRiskTcd  Ira  item  ark  of  ('wnmodiiri1  Business  Marhinrs,  Inc. 


August  J 


"Poker"  is  an  original  color  and  sound 
version  of  the  classic  card  game  of  draw 
poker.  The  format  and  style  of  play  are 
similar  to  those  of  commercial  poker 
machines.  Written  for  the  VIC  with  at 
least  3K  memory  expansion,  we've 
added  a  version  for  the  64. 


^witowski 


towski 


"Poker"  opens  with  a  dynamic  intro- 
duction featuring  color,  sound,  and 
horizontal  text  scrolling.  The  number 
of  each  round  is  announced,  and  five 
cards  are  dealt  at  random.  You  build 
your  hand  by  choosing  which  cards 
to  keep  or  exchange  (up  to  three  cards 
can  be  drawn).  The  computer  ranks 
your  hand  and  announces  the 
payoff,  if  any.  Your  cumulative 
winnings  (or  losses)  are  dis- 
played at  the  top  of  the 


screen.  The  higher  the  hand,  the  more  you 
win.  For  example,  you  break  even  on  a  pair 

of  jacks  or  better,  but  a  royal  flush  brings 

you  $250. 

Program  Features 

The  program  itself  (VIC  version)  contains 
several  interesting  features: 

1,  The  short  routine  in  lines  230  and 
240  scrolls  single  lines  of  text  hori- 
zontally across  the  screen. 

To  conserve  memory,  lines  of  text 
used  in  the  introduction  are  reused 
in  the  routine  that  announces  the 
rank  and  value  of  the  hand. 

3.  A  machine  language  (ML)  routine 

POKEd  into  the  cassette  buffer  is 

used  to  create  a  colorful  border. 

The  routine  is  accessed  by  the 

SYS  828  statement  in  line  350. 


*&> 


***<■©  ^ 

%<$^ 


T 


^ 


*OFFER  SUBJECT  TD  AVA1LABIUTY 


AQUAPLANE 

COMMODORE  64 
SOFTWARE 


Ski  thru' i 

GSTs. 

beware  the  Great  White 

Hungry!! 

AQUAPLANE  is  an 

unbelievable  original 

Arcade  Game. 


PURPLE 
TllRTl  F«i 


COMMODORE  64 
SOFTWARE 


HIWBBH 


game  with  Loveable 
Turtles.  Cuddly  Graphics 
and  more  Cuteness  than 

you'll  find  in  any  other 

Commodore  64  game!  A 

game  for  the  young  at 

heart  and  people  who 

have  tired  of  alien 

bashing. 


QUINTIC 
WARRIOR 

COMMODORE  64 
SOFTWARE 


Part  Man.  Part  Superman 
the  QUINTIC  WARRIOR 
stands  along  against  the 
sinister  Crabmen  and  a 
Domed  City  gone  mad  in 

the  distant  future. 
Are  you  warrior  enough 

to  stand  by  his  side  in  this 
MEGA-  Arcade  Game. 


RING  OF  POWER 

COMMODORE  64 
SOFTWARE 


RTSi 


•*:1ir-  i  j  > 


lost  his  mind  and  along 

with  it  the  Crown  Jewels! 

Now  whosoever  can  find 

the  Jewels  shall  be 

proclaimed  King. 

Can  you? 

RING  OF  POWER  is  a 

sophisticated  adventure 

with  a  GRAPHICS  or  I 

TEXT  option. 


0, 1500  an 
2000  and 
ACORN 
ELECTRON. 

end  for  Advanced  Informatio 

on  our  new  Timex-Sinclair  and 

Electron  Range. 


SKYHAWK 

VIC20  SOFTWARE 


Attacking  raiders  scream 
out  of  the  sky  at  you,  you 
check  your  radar  as  an 


mmmmsam 


your  sioe,  you  return  tneir 
fire  sending  one  of  the 


TORNADO 

VIC20  SOFTWARE 


Colony  Fighters  leap  at 

me.  I  rfivr  '- 


the  ground  installations 

below,  the  sound  of 
explosions  rumbles  away 
over  the  1 
TORNADO  runs  on  an 


Joystick. 


QUICKSILVA  INC. 

426  West  Nskoma 
San  Antonio.  TX  78216 
Tel:  C5123  340  3684 


Please  send  me  a  free  color  catalog 

I  currently  own  or  plan  to  buy  a computer 

I  enclose  a  stamped,  self-addressd  envelops 

Name 

No/Street 

City  . 

State 


BRITAIN 


i3      mawkmm      wvwasm  \ 

HIT  i£)  TO  KEEP 
HIT  M      TO  CHANGE 


♦ 


2  PA  IR--P3 


Life  real  pcfer,  yow  caw  keep  your  hand  or  draw  up  to  three       Are  three  of  a  kind  worth  keeping?  The  decision  is  yours  (64 


new  cards  (VIC  version). 


version). 


4.  Lines  30  and  40  (VIC  version)  check  for  a 
3K  memory  expander.  Line  50  then  alters  the 
ML  routine  to  conform  to  the  screen  and  color 
memory  configuration  of  a  VIC-20  with  less 
than  8K  of  expansion  memory. 

5.  A  hand's  rank  and  value  is  determined  by 
using  ML  and  IF-THEN  statements  in  lines 
2110-2210.  The  machine  language  performs  a 
bubble  sort  (ranking)  of  the  card  values  and 
determines  which  cards  are  duplicates  (two 
kings,  three  jacks,  etc.). The  ML  routines  are 
POKEd  into  the  cassette  buffer  and  are  ac- 
cessed in  lines  2020  and  2130. 

REM  statements  are  omitted  so  the  game  will 
fit  in  the  6655  bytes  provided  by  a  3K  memory 
expander.  Those  of  you  with  3K  memory  expan- 
sion must  type  Poker  exactly  as  listed.  There  is  no 
extra  memory  available  for  spaces  within  and 
between  commands. 


Program  Description  (VIC  Version) 

Line 

20 

POKE  machine  language  in  buffer. 

30-50 

Detect  memory  configuration;  alter  machine 

language  if  3K  expansion. 

60-210 

Read  constants. 

220-300 

Scroll  lines  of  text  with  sound . 

310 

Set  text  lines  to  null  strings  if  they're  not  used 

again. 

350-370 

Hand  number  routines;  create  card  screen. 

500-630 

Select  cards;  determine  display  characters  and 

colors. 

640-800 

Deal  cards. 

810-1550 

Keep  or  change  each  of  the  five  cards. 

2000-2170 

Determine  rank  of  hand. 

2180-2220 

Determine  value  and  correct  line  of  text. 

3030-3100 

Display  determination  with  sound. 

4030-4050 

Subroutine  for  hand  number. 

5000 

Subroutine  to  flash  border,  colors. 

5050 

Subroutine  to  display  winnings. 
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For  those  who  would  rather  not  type  it  in,  I 
will  be  glad  to  make  a  copy  of  the  VIC  version. 
Such  requests  should  include  a  blank  cassette  or 
disk,  a  self-addressed,  stamped  envelope,  and  $3. 
Mail  to: 

A.J.  Kwilowski 
302  Euclid  Avenue 
Glassport,  PA  15045 

See  program  listings  on  page  172.  © 


LOW  COST  SOFTWARE 


Are  you  tired  of  paying  high  prices  for  your  software? 
Let  John  Henry  Software  save  you  money! 

We  distribute  public  domain  software  for  your  VIC  20" 
or  Comrnrjdora  64'".  We've  tested  and  documented  each 
program  to  guarantee  you  hours  of  fun  and  useful 
learning  experiences.  We  specialize  in  prompt  delivery 
of  your  software,  even  if  you  order  tapes,  and  we 
guarantee  our  product. 

You'll  also  receive  our  free  program  reference  book 
when  you  place  your  order. 

VIC  20 

Group  VG     62  Games  for  Everyone S7.95 

Group  VP     54  Programming,  Demo.  Business 

and  Home S7.95 

Group  VE     35  Educational  Programs S7.95 

COMMODORE  64 

Group  CG     26  Games  for  Everyone $7.95 

Group  CP     30  Programming,  Demo,  Business 

and  Home S7.95 

Group  CE      16  Educational  Programs $7  95 

Group  CA      5  Adventure  Games  (disk  only) S795 

When  ordering,  specify  group  and  tape  or  disk. 

Send  check  or  money  order  payable  to: 

John  Hanry  Software 

P.O.  Box  39021 
Cincinnati.  Ohio  45239 
Don't  wait!  Order  your  software  today!  Or  write  for  your 
free  program  reference  book.  You'll  be  glad  you  did! 

VIC  ZQ  ind  Commodori  84  ire  Inderal  rkt  ol  Commodore  Electronic!  Umlled. 


WOW! 

DON'T  MISS  OUT  ON  OUR  GREAT 
HARDWARE  AND  SOFTWARE 
DEALS  FOR  THE  VXC-20/C64. 


Send  in  your  name  and  address  to 
receive  our  FREE  catalogs  on  fantastic 
hardware  and  software  for  your  VIC- 
20/C64.  We  are  dedicated  to  bringing  you 
the  best  quality  and  or  least  expensive 
items  for  your  computer.  Take  advant- 
age of  our  special  introductory  offers, 

Mark  off  the  reader  service  card  (if  this 
magazine  has  one)  or  send  in  your  letter 
TODAY. 


OMNITRONIX 

PO  BOX  12309  DEPT.  FG 
SEATTLE,  WA  98111 


Disk  Drive  excellence 

Every  now  and  then  a  new  product  design 
seams  intended  to  iast  forever... 

Tito  our  now  ting  la  nnd  dupl  Supar  Drlvat  for  Commodor  a  computer*  Thmr  tutlc 
driva  machsnlam  <t  Industrial  quaUty,_.dflsignecL  lasted,  *nd  proven  lo  lake  mora  uto 
and  fibuaa  than  moat  personal  computing  eyalemA  Avar da  Super  Drives  won't  braak 

down  itftvr  onfy  a  tttw  month's 
usa  These  drives  rocoonlte 
the  Mr  Gonnmodorti  diak  In- 
struction ut  and  coma  wlih 
both  aortal  and  IEEE  intar 
faces.  So,  Superdrives  are 
tufty  competipi*  *Hh  PET, 
VI&2Q,  and  Commodore  64 
com  put  on.  no!  |utt  one  or 
t  h  ts  other 

Super  drives  are  loadad 

with'  antral  For  instance,  each 

ono  comes  with  an  extra  &K 

of  RAM  irwkJe  Ihe  disk  unit  I 

sophisticated  i$K  POM  ootr- 

sting  system  a  futuristic  tall 

titaonasfiz  routine,  and  high 

speed  disk  formatting,  Your 

Supercrrve    comes    complete 

with  all  cables  and  connectors 

us  Instructions  to  put  It  Into  use 

kn mecxetetyi  Single  drivs*  u t o  S39 9.G 5 

I  drives  a  re  5  BE  9.&S.  P I  esse  a  dd 

shipping  and  Insurance  VISA 

Mastercard  are  accepted  By  the  way, 

are  in  stock  lor  Immadiala  ahip- 

Superdrtves  cost  more  than  other  driven  But  Wien 
you'd  expect  to  pay  more  for  Excellence.  Remember  no 
ens  was  ever  sorry  they  bought  the  best  Order  your  own 
single  or  duat  Supordrtva  today  and  step  up  to  a  new  level  of  Disk  Dtiv*  EMCitllonco, 

By  t  ho  way,  we  apecld  tiz  t  ip  un  /giro  and  hard  to  find  Items  tor  yo  ur  Commodore  com- 
puter. Write  or  cali  tor  a  trait  copy  of  our  software  and  peripheral  brochure* 

(Dealer  Inquiries  rnvtted) 

E.  Arthur  Brown  Company 

1702  -  CG1  Oak  Knoll  Drive  Ph.-  61  2/762-8847 

Alexandria.  MN  56308  612/762-1631 


Commodore®  owners: 

IS  HERE . . ." 


VISA 


Will  your  printer  Interlace  pass  the  Commodore'  printer  test?  We  don't  think  so!!  Ours  wilt. 

The  CONNECTION™  is  truly  Ine  ultimate  parallel  interface  tor  Ihe  VIC20'W/COMMODORE  64™  This  lully  intelligent 

interlace  plugs  into  the  disk  (serial)  socket  |ust  like  the  standard  printer  and  you  can  easily  assign  it  any  device 

number,  it  will  provide  virtually  TOTAL  EMULATION  ol  Ihe  Commodore1  pr  nter  including  all  standard  graphic 

characters  [normal  or  inverse),  column  tabbing,  dot  tabbing,  graphic  repeal  dot  addressable  graphics,  cursor 

up/down  mode,  and  more.  It  responds  to  all  ol  the  standard  commands  (PRINT  #,  OPEN.  CLOSE,  etc.)  to 

insure  software  designed  (or  the  Commodore*  printer  will  operate  with  the  CONNECTION™  Use  it  in  the 

TOTAL  TEXT  MODE,  or  purchase  Our  Universal'  CONNECTION  thai  works  with  virtually  EVERY  DAISY 

WHEEL  OR  MATRIX  PRINTER  with  standard  Centronics  Parallel  conliguration.  To  take  lull  advantage  ot 

your  printer's  special  features,  please  specify  the  printer  type.  Available  lor  STAR  MICRONICS,  BXBO, 

EPSON.  OKI,  NEC.  PROWRITER.  BANANA,  SEIKOSHA,  RITEMAN,  GEMINI10X  and  others 

ONLY  $119.00  Complete.  (Additional  ROMs  are  available  if  you  should  ever  change  printers). 

THE  CONNECTION  PROVIDES: 

1)  A  2K  Printer  butter. 

2)  Full  LED  Status  indicators. 

3)  Complete  Built  In  sett  test. 

4)  Printer  reset  switch. 

5)  Adds  Skip  over  pert,  margin  set,  programmable  line  length,  program 
list  format  commands  to  your  printer. 

6)  No  need  for  extra  cost,  special  tape  loader  for  graphics. 

7)  All  features  easily  accessed  from  software. 

8)  ASCII  conversion,  TOTAL  TEXT,  EMULATE,  and  TRANSPARENT  Modes. 
■Note:  Only  the  Universal  CONNECTION  will  not  provide  100H  Commodore  gr*phlc*. 
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Tree  Tutor 
For  Tots 


Janet  Arnold 


This  educational  program  uses  custom  charac- 
ters and  lively  graphics  to  teach  addition  to 
young  children.  Correct  answers  are  rewarded; 
there  are  no  penalties  for  guessing  wrong. 
Originally  written  for  the  VIC-20,  we've  added 
a  version  for  the  Commodore  64. 


Arithmetic  is  for  the  birds — if  your  youngster 
plays  "Tree  Tutor  For  Tots."  This  math  program 
is  suitable  for  small  children  (preschool  through 
second  grade)  who  are  just  learning  to  add.  It  is  a 
tutor,  not  simply  a  drill,  because  it  illustrates  ad- 
dition concepts  using  colorful,  attention-getting 
graphics. 

The  child  adds  the  apples  hanging  in  a  tree  to 
those  scattered  on  the  ground.  A  correct  answer 
brings  a  bird  swooping  from  the  sky  to  pluck  an 
apple  from  the  tree.  The  bird  then  drops  it  into  a 


basket  and  flies  off  the  screen.  After  ten  right  an- 
swers— and  ten  apples  stacked  in  the  basket — the 
game  ends. 

Choosing  Levels  Of  Play 

LOAD  the  program  and  RUN  it.  After  a  short 
wait,  the  title  appears  and  you  are  asked  to 
"Choose  highest  sum  (2-9)."  Hitting  a  7,  for  in- 
stance, generates  problems  with  answers  no 
higher  than  seven.  A  beginner  should  choose  2, 
proceeding  to  the  harder  problems  as  the  easier 
ones  are  mastered. 

Next  you  are  given  an  option  for  displaying 
the  fruit.  A  beginner  should  hit  1;  this  tells  the 
computer  to  show  the  apples  when  the  problem 
is  first  printed.  A  2  causes  the  fruit  to  appear  only 
if  the  child  gives  a  wrong  answer. 

When  the  tree  and  the  problem  are  displayed, 
guide  your  child  to  discover  the  correct  answer  by 


Four  apples  in  the  tree  pins  one  on  the  ground.  What  does  it      In  the  64  version,  the  child  has  answered  correctly.  The  bird 
add  up  to?  (VIC  version)  is  carrying  an  apple  to  the  basket . 
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Kids  climb  to  the  top  in 
our  playground... 

Because  we  offer  more  than  just  educational  games.  Our  unique  software  brings  the  magic  touch  of  the 
Edumate  Light  Pen™  together  with  the  amazing  computer  voice  of  S.A.M.™,  the  Software  Automatic  Mouth,  50  children  can  interact 
directly  with  our  teaching  programs.  Playground  Software""  makes  learning  and  learning  to  use  the  computer  child's  play! 


animal 
Crackers' 

preschool 
Grade  3 


Our  playground  ol  adive,  colorful  animals  will  have  your 
child  spelling  new  words  in  no  lime  at  all.  Animal  Crackers™ 
combines  the  use  ol  the  Edumale  Light  Pen™  and  children's 
fascination  with  animals  and  computers  10  teach  your 
children  the  alphabet  as  Ihey  learn  to  spell.  By  simply 
touching  a  letter  on  the  screen  with  the  Edumale  Light  Pen  , 
your  children  will  create  a  screen  lull  of  animals  and  olher 
playful  objects.  Not  only  is  it  fun,  it's  educational! 


Unleash  Ihe  creative  talents  of  ihe  big  kids  and  (he  little  kids 
in  your  family  with  the  first  electronic  coloring  book.  Com- 
puter Crayons'"  comes  complete  with  ready-to-paint  scenes 
and  an  artist'1,  palette  of  vibrant  color.  Additional  options  per- 
mit you  to  save  and  restore  pictures  easily,  draw  circles,  lines, 
boxes,  and  erase  in  a  single  Stroke. 

Let  your  imagination  run  wild  with  the  Sketch  Pad  that 
allow-,  you  to  create  your  own  video  paintings  from  scratch, 

Now  anyone  can  transform  our  Edumate  Light  Pen™  inlo 
an  electronic  paint  brush  with  Computer  Crayon*™! 


Alphabet 
Arcade" 

Preschool 
to  Grade  1 


The  most  fundamental  lesson  every  child  must  learn  is  how 
to  draw  Ihe  tellers  of  the  alphabet,  The  Alphabet  Arcade™ 

utilizes  the  Edumale  Light  Pen™  and  ,111  exciting  arcade  en- 
virunrnenl  lo  provide  the  children  with  an  innovative  way  10 
,n(|im<'  hasu  lettering  skills  Mistakes  are  noled  immediately 
and  correct  entries  rewarded  in  a  series  of  action-packed  set- 
tings lhat  will  delight  and  inspire  your  children.  Discovering 
the  alphabet  has  never  been  ihis  much  fun! 


■  ■  ■  ■■■■■■»ii.i,i.i.  ^,, 
ltr■...■.., ::.....  - -TTTr^TTj 

"rt*ft«&H4JHC»,     Mil     »IC     Itt.l.H    rtlll 

navfff*-  * 


All  Playgroufld  Sollwaie  15  ligMpen  irctfjoysllck  compdibln. 


Playground  Software™  presents  a  series  of  engrossing  tales 
that  use  our  Edumate  Light  Pen™  and  your  child's  imagina- 
tion to  tell  a  story. 

Our  first  Bedtime  Story  enlists  the  aid  of  your  child  to  help 
Lillle  Red  Riding  Hood  escape  from  the  Mean  Old  Wolf,  and 
has  all  Ihe  colorful  animation  and  full-scale  sound  that 
children  love. 

Your  child  will  be  taught  letter  and  word  recognition  while 
having  all  the  lun  that  goes  along  wilh  helping  to  tell  a  story, 
So  let  your  child  play  a  pan  in  the  firsl  of  our  interactive  and 
educational  bedtime  stories,. .Little  Red  Riding  Hood! 


Be<*time 
Tories'* 


Playground  Software... Kids  are  all  over  us! 

Each  package  $29.95  on  disk  or  cassetie.  Prices  subject  lo  change  without  notice.  See  your  local  dealer  or  order  direct  from  p.o.  box  3470, 
department  eg,  chapel  hill,  north  Carolina  27514.  Add  S3. 00  (or  postage  and  handling.  Credit  card  orders  call  1  -800-334-SOFT 


During  December  and  January  you  con  lake  advantage  of  our  Special  Christmas  Otter  and  receive  an  Edumate  Light 
Pen'"  (retail  price  $29.95]  for  only  $14.95  when  you  purchase  all  four  Playground  Software™  packages,  or  receive  a  10% 
discount  toward  the  purchase  of  the  Edumate  Light  Pen™  when  you  buy  any  Playground  Software     program. 


JUerl  wa'tMM       ind  C  amm  odor*  64       ir*  )r«<itrTMrfci  at  Ktnl  Ine  md  Commodore:  El«tronhep,  Inc  rf  HMfllvtly, 


It  •  trfdeirtrt  ol  Don't  Alt  5ol(»*ri. 


saying  something  like,  "There  are  two  apples  in 
the  tree  and  one  more  on  the  ground.  See  this 
problem?  It  says  2  plus  1 .  How  much  is  two  and 
erne?  Let's  count  the  apples  and  find  out."  Point 
out  that  the  number  of  apples  in  the  tree  is  the 
same  as  the  tup  number  of  the  combination,  and 
that  the  number  of  apples  on  the  ground  matches 
the  bottom  number.  Your  child  will  learn  that  the 
apples  are  a  picture  of  the  addition  problem. 

When  you  think  your  youngster  is  ready, 
suggest  trying  to  answer  without  counting  the 
apples,  using  fruit  option  2.  If  the  answer  is  wrong, 
the  apples  appear  on  the  screen;  your  child  can 
count  them  to  discover  the  correct  sum. 

An  apple  is  dropped  into  the  basket  for  every 
right  answer,  even  if  it  took  several  guesses,  as  an 
incentive  to  keep  trying.  After  collecting  ten  ap- 
ples, you  receive  a  message  stating  the  total  tries, 
although  a  preschooler  probably  won't  care.  He 
or  she  will,  however,  enjoy  seeing  the  bird  fly 
down  to  land  on  the  message,  which  is  a  further 
incentive  to  complete  ten  problems. 

Incorrect  Keys  Are  Ignored 

Because  tots  often  hit  the  keyboard  accidentally,  I 
set  up  lines  10,  14,  and  78  (VIC  version)  to  accept 
only  numerals  in  the  stated  range.  Every  other 
key  will  be  unresponsive  (except  for  the  RUN/ 
STOP  key).  The  program  uses  a  GET  statement, 
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so  the  child  need  not  hit  RETURN  after  entering 
an  answer.  Line  76  resets  the  number  of  characters 
in  the  keyboard  buffer  to  zero,  in  case  a  key  was 
pushed  between  problems. 

Here  is  a  program  description  of  Tree  Tutor 
(line  numbers  for  the  64  version  are  in  parentheses): 

Lines  Description 

2-6  (100-180)  Title,  custom  characters  created,  variables 

set. 
&-14  (1 90-240)  GET  highest  number  desired;  GET  fruit 

option. 
16(250-260)  POKEbasket. 

18  (270)  Main  loop — covin i  ten  correct  answers, 

20-22  (280-290)         Choose  problem  (see  paragraph 

following), 
24(300)  Erase  former  tree,  problem,  and  message, 

26-38  (310-410)         PRINT  tree  and  problem. 
40-74  (420-590)         POKE  fruit. 
76-80  (600-620)  GET  and  judge  answer. 

82-84  (630-650)         Routine  for  wrong  answer. 
86-106  (660-800)       Reward  correct  answer. 
108-122  (8)0-920)      Reward  ten  correct  answers;  "play 

again"  option. 
124-126  (930-940)     Subroutine  for  falling  apple. 
128-138  (950-1000)    Data  for  custom  characters. 

When  the  computer  chooses  an  addition  prob- 
lem in  lines  20-22  (280-290  in  64  version),  it  first 
generates  a  random  top  number  anywhere  from 
one  to  the  highest  number  family  (F)  selected  by 
the  user.  The  bottom  addend  is  never  greater  than 
F  minus  the  top  addend,  so  that  the  sum  will  never 
be  greater  than  F.  Tl  and  Bl  hold  the  values  of  T 
and  B,  the  top  and  bottom  addends,  from  the  last 
displayed  problem.  This  is  to  insure  that  an  iden- 
tical problem  does  not  follow  immediately. 

One  oddity  you  will  notice — my  children 
discovered  it  right  away — is  that  the  apples  in  the 
tree  are  different  than  the  apples  elsewhere  on 
the  screen.  The  program  POKEs  the  tree  apples 
in  multicolor  mode,  which  causes  some  loss  of 
horizontal  resolution.  This  results  in  a  boxier- 
looking  apple,  but  it  does  fill  in  the  empty  spaces 
around  the  apples  with  green,  the  border  color, 
rather  than  with  white,  the  screen  color. 

My  older  son  strongly  dislikes  seeing  two 
shapes  of  apples,  so  I  devised  the  following  pro- 
gram change  for  those  who  share  his  idiosyncrasy: 

Line 

128  (950  in  64  version)  Change  first  eight  numbers  to 
24(1 ,  60 ,  255 ,  255 ,  255 ,  255 ,  25  5 ,  60 

This  program  uses  up  most  of  the  memory  in 
an  unexpanded  VIC,  so  don't  add  any  unneces- 
sary spaces. 

1  will  make  a  copy  of  Tree  Tutor  for  Tots  (VIC 
version  only)  if  you  send  a  blank  tape,  a  self- 
addressed,  stamped  envelope,  and  check  for  S3  to: 

j tt net  Arnold 

620  Alger 

Owosso,  Ml  4S867 

Sir  program  listings  on  page  14S.  (Bf 


Bottor  Letter  ft  Writer  " 

We  write  your  letters.  Invitations. 
Resumes.  Announcements. 
Applications.  Greetings.  And  many 
more.  100  letters  just  waiting  for 
youtofillinafewsimpledetails,  and 
.  ,  PRINT!  Select  a  letter  and  load 
it  into  your  favorite  word  processor 
If  you  don't  have  one,  use  our  simple 
to  operate  Better  Writer'" 
supplied  with  the  package 


r/ianft  You  Letter 


Supports  most  word  processors  using  your  computer  ASCil  format.  $34.95  on  disk  lor  Commodoro 
64  and  Atari  (16KJ  computers.  Soon  lor  Apple,  IBM  and  Coleco  computers. 

Ham*  Decorator'" 

By  Slepnanle  Neuman,  Ph.D. 

We  decorate  your  home  Or  your  office.  We  teach  you  about  colors,  furniture 
layout,  and  even  thetheory  behind  it .  Then,  by  following  simple  mstruclions  you 
select  carpeting,  paint  walls,  move  heavy  sofa  beds  -  and  you  get  10  see  ii 
BEFORE  you  make  costly  mistakes.  Amazing! 


534  95  on  disk  lor  Commodore  84  Soon  tor  Atari.  Apple.  IBM  and  Coleco  computers 

Is/Dick" 

We  turn  your  disk  drive  into  a  powerful,  simple  lo  use  machine  I  No  more  lengthy 

Basic  commands  . .  call  the  menu  anytime,  your  program  in  memory  remains 
iniact  until  you  Load  or  Run  another.  Indispensable  tool  for  every  drive  owner, 


$24.95  on  disk  for  Commodore  64  and  VIC  20  computers. 


Ei/Diik  Plui 

We  give  you  even  more!  All  Ez/Disk 
functions,  PLUS:  copy  disks  with 
one  or  two  drives,  print  files  directly 
from  disk,  and  more. 


Menu  3 


$34.95  on  disk  lor  Commodore  64. 


Quick  Touch  Typing  " 

We  leach  you  typing  Step  by  step. 

Easy  to  follow  lessons  even  kids 
will  love.  And  then,  we  make  you 
type  FAST  You  actually  watch 
your  speed  increase  with  every 
drill! 


$22. 95 cassette.  S24,g5  on  disk  for  Commodore  64  and  Atari  ( 1 6K}  computers  Soon  for  Apple.  IBM 
and  Coleco  computers 


f  amtiure  Layout 


Perspective 


Menu  f 


Keyboard  Soft    Lay 

We  save  you  lime.  All  you  need  is 
immediately  al  your  fingertips.  No 

more  endless  paging  through 
manuals  and  books  Basic 
command,  memory  locations  and 
maps,  sprites,  sound  and  more, 


Menu  2 


SoftiLay  64 


S3  85  lor  Commodore  64  rind  VIC  20  computers. 


ASK  FOR  THESE  SOFTRON  PRODUCTS  AT  YOUR  FAVORITE  COMPUTER  STORE  OR,  DIRECTLY  FROM  US: 
1 50  Nassau  Street  ■  Suite  2024  ■  New  York  •  New  York  10038  •  Telephone:  (212)  608-2922  •  Orders  Only:  (800)  237-8400/Ext.  1 1 1 

Dealer  and  Distributor  Inquiries  Invited 


SOFTRCM.  IMC 


WE  MAKE  YOUR  LIFE  EASIER. 

Send  check  or  money  order  plus  $2.00  to  cover  shipping  costs.  Add  S3.00  for  COD.  New  York  residents  add  8.25%  sales  tax 

Commodore  84.  VIC10.  Apple,  Atari.  IBM  and  Coleco  are  tredemerksolCommotdora  Electronics.  LTD..  Apple  Computer.  Inc..  Atari.  Inc..  IBM  Corp.  and  Coleco  respectively,  SOFTRON,  Better  Letter  Writer, 
Better  Writer,  Home  Decorator.  Quick  Touch  Typing,  EztDisk.  £r/Duc  Plus  ana  Keyboard  SottlLay  are  trademarks  ot  SOFTRON.  Inc. 

o  1984  Softron  Inc.  All  Righls  Reserved 


"Guess  America!"  is  a  historical  game,  and 
it's  fun.  The  goal  is  to  travel  across  the  U.S.  in 
a  covered  wagon  by  answering  questions  about 
history,  geography,  and  current  events.  Ques- 
tions can  be  added  or  modified,  making  it 
possible  to  create  a  customized  quiz  or  review 
for  children  at  any  learning  level. 


"Guess  America!"  is  an  educational  program  that 
uses  the  64's  sprite  and  graphics  capabilities.  After 
randomly  selecting  a  key  word,  the  program 
scrambles  and  displays  it.  You  have  15  seconds  to 
type  in  your  guess  with  the  correct  spelling.  If 
you  cannot  answer  correctly,  you  are  given  a  clue. 
A  second  and  then  third  clue  (each  a  little  easier 
than  the  one  before)  are  given  if  you  still  don't 
have  the  correct  answer. 

After  five  words  have  been  selected,  the  game 
is  over.  A  covered  wagon  then  travels  westward 
across  a  map  of  the  U.S.,  and  the  higher  your 
score,  the  farther  the  wagon  travels.  A  high  score 
will  get  you  all  the  way  to  California. 

The  game  may  be  repeated  as  many  times  as 
you  wish.  Each  new  game,  the  computer  will 
randomly  select  five  words  from  a  list  of  31.  If  a 
key  word  happens  to  be  selected  more  than  once, 
the  second  scramble  will  usually  be  different  than 
the  first. 

Modifying  The  Program 

The  game  can  always  remain  fresh  because  you 
can  very  easily  modify  or  add  key  words  and  clues. 
Your  only  limit  is  the  computer's  memory.  (As 
written,  the  program  uses  about  I  IK.) 

Terms  can  also  be  changed  so  that  they  rep- 
resent a  single  topic— U.S.  presidents,  or  inven- 
tors, for  example.  To  delete  a  key  word  and  clues 
permanently,  omit  the  entire  DATA  statement 
when  typing  in  the  program.  You  can  also  simply 
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A  series  of  clues  is  given  if  you  can't  unscramble  the  word  the 
first  time  in  Guess  America. 

insert  a  REM  after  the  line  number  if  you  wish  to 
temporarily  delete  a  DATA  statement.  Just  remove 
the  REM  if  you  wish  to  use  the  DATA  statement 
before  running  the  program. 

To  add  words  and  clues,  use  this  format: 

Line  number,  DATA,  key  word  to  be  scrambled, 
clue  1,  clue  2,  clue  3 

Be  sure  to  always  include  commas  between  words 
and  clues.  If  clues  are  long,  two  line  numbers  and 
DATA  statements  may  be  used.  The  key  word 
may  also  include  a  hyphen  or  space  (as  in  New 
York),  but  not  commas,  colons,  or  double  quota- 
tion marks.  Make  sure  that  the  line  DATA  *,*,*/ 
is  the  last  DATA  statement  in  the  program. 

If  you'd  rather  not  type  in  the  program,  I'll 
make  copies  on  tape.  Send  a  blank  cassette,  $3, 
and  a  self-addressed,  stamped  mailer  to: 

Ellen  Barcel 

P.O.  Box  39 

East  Setauket,  NY  11733 

See  program  listing  on  page  155.  (Q) 


What  do  you  like  best  about 

COMPUTEI's  GAZETTE? 

It  teaches  me  more  about  my  Commodore  64  than  any  other  magazine. 

MWpMJ^  The   Gazette   Feedback  column. 

I  fate  it  the  \?£<>b  W\aq ATsMe-ps  toy  Y\eul<>    T/^c  /fatd^t/<UsC<Js  fr/H^ 

y>y;h^^y^^  I'M  NEW  fcr  OOMpOTlEMd;  W  &NBTt£ 

^^^4^^  The  wh'd&  c*\  v\k<xcU  f a£ 

It's  not  too  technical  for  the  average  person.  ^C^^^ice^ 

J>/&?£^>MPAf#^  The 

programming  tips  and  reviews  Jtofarnddm  wrfd^'fa 

*^>pW&&lt  Your  professional  writing;    you  have  very 
knowledgeable  authors  ^)    \Llkdu  Jlj^ajsyy^v^a  (ru&vo  C*s>Y>>OoOU>z^u 

The  above  comments  are  from  The  Editor's  Feedback  Cards,  a  monthly  part  of  our  continuing  dialogue  with 
the  readers  of  COMPUTE!'*  GAZETTE. 

Every  month,  readers  of  COMPUTERS  GAZETTE  get  rcady-to-type-in  games  and  applications  programs, 
tips  on  programming  in  BASIC  and  machine  language,  reviews  of  new  hardware  and  software,  feature  articles 
that  explain  and  entertain,  and  much  more. 

If  you  would  like  to  become  a  GAZETTE  subscriber,  return  one  of  the  subscription  cards  in  this  issue  or 
call  the  number  below.  The  basic  subscription  price  of  $20/year  saves  you  $10  off  the  newsstand  price.  Why 
not  subscribe  today?  Call  Toll  Free  in  the  US  800-334-0868,  919-275-9809  in  NC 

COMPUTERS  9MSMWWW 

P.O.  Box  96 1      Farmingdale,  NY  I  1  7 1 7 


Sea  Route  To  India: 

A  Historical 

Simulation  For 

The  64 


M.J.  Winter 


Here's  your  chance  to 
make  history  on  the 
"Sea  Route  to  India." 
Following  in  the  wake 
of  Portuguese  explorers, 
you  can  find  gold  and 
adventure,  if  you  don't 
starve,  or  get  sunk  by 
pirates,  or  capsize  in  a 
terrible  storm. 


:;  ki.curd 


W  !  *■'.  i:  23 

MILES   SOILED  5848 

FOOD  9 

WfiTER  8 

SUPPLIES  32 

601  0  28 

CREW  SPIRIT  G 


Indian  attacks  by  study- 
ing historical  accounts. 
The  result  was  a  game 
that  was  both  interesting 
and  informative. 


ROUKDED 


PRESS   C 


One  of  the  earliest  games  for  PET  computers  was 
Westward  Ho,  in  which  the  player  becomes  a  turn- 
of-lhe-century  pioneer,  trying  to  cross  the  country 
in  a  covered  wagon.  Decisions  must  be  made  about 
purchasing  food,  supplies,  and  ammunition. 
Various  experiences — hunting,  Indian  attacks, 
settlements — occur  on  each  leg  of  the  journey.  By 
repeatedly  playing  the  game,  the  user  learns 
where  to  spend  money,  how  to  hunt,  and  whether 
to  trust  strangers.  Luck,  however,  is  a  major  factor 
in  success.  PET  users  of  all  ages  played  the  game 
over  and  over  until  they  finally  reached  the  West 
Coast. 

Westward  Ho  was  an  abbreviated  version  of 
Oregon  Trail,  in  which  the  game's  designers  took 
pains  to  produce  an  accurate  simulation.  They 
used  prices  from  contemporary  catalogs,  and 
calculated  frequencies  and  likely  locations  of 
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Sail  The 
Bounding  Main 

"Sea  Route  To  India"  uses 
Rounding  the  Cape  of  Good  Hope  in  "Sea  Route  To  India."    a  similar  technique, 

drawing  on  the  voyages 
made  by  Protuguese  explorers  in  the  fifteenth 
century. 

The  subroutine  beginning  at  line  15000  intro- 
duces the  game  and  gives  you  the  rules. 

Your  goal  is  to  sail  from  Lisbon  around  Africa 
to  India.  During  the  voyage,  you  encounter  the 
same  dangers  faced  by  the  real  explorers:  hunger, 
thirst,  pirates,  natives,  weather,  mutiny,  and  at- 
tack by  Arab  traders. 

Your  journey  is  charted  in  weeks  on  a  map 
displayed  on  the  screen.  Lines  500-800  contain 
the  loop  for  each  week.  The  miles  you  sail  depend 
on  the  weather.  Each  week  your  store  of  water, 
food,  and  supplies  decreases  by  one  unit.  If  your 
voyage  lasts  more  than  30  weeks,  the  crew's  hap- 
piness also  decreases  by  1 . 

Each  week  you  have  a  new  experience;  line 
560  sends  the  program  to  the  appropriate  event. 
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You  deserve  the  best.  You've  earned  it.  Now  reward  yourself  with  a  session  of  Night  Mission  PINBALL, 
the  most  realistic  and  challenging  arcade  simulation  ever  conceived!  ■  Stunning  graphics  and  dazzling 
( — ',    .—      ^   ~~"\  sound  effects  put  Night  Mission  PINBALL  in  a  class  by  Itself.  Game  features:  multi- 
I        ^PjiiiiitlNlgM  l  ball  and  multi-player  capabilities,  ten  different  professionally  designed  levels  of  play, 


Night  Mission  PINBALL  from  SubLOGIC.  Winner  of  Electronic  Games  magazine's 
■    I  1983  Arcade  Award  for  Best  Computer  Audlo/Vi sua!  Effects. 


Hi 


See  your  dealer . . . 

or  write  or  call  for  more  information.  For  direct  orders  please  add  SI  .50  lor 
shipping  and  specify  UPS  or  first  class  mail  delivery.  Illinois  residents  add  5% 
sales  tax.  American  Express,  Diner's  Club.  MasterCard,  and  Visa  accepted. 

Order  Line:  800/637-4983 


iOiMOGIC 


713  Edgebrook  Drive 
Champaign  IL61 820 

(217)  359-8482  Telex:  206995 


BHi 

Hi    I 


In  the  early  part  of  the  voyage,  you  sight  whales 
and  other  ships,  and  sail  into  terrible  storms.  But 
after  you  pass  the  Cape  of  Good  Hope  and  pick 
up  your  Indian  pilot,  you  might  be  attacked  at 
any  time  by  Arab  dhows. 

Check  Your  Progress  Every  Week 

At  the  end  of  each  week,  the  program  assesses 
your  situation.  If  you  sailed  far  enough  to  visit 
the  Canary  or  Cape  Verde  Islands,  then  your 
water,  food,  supplies,  and  crew  happiness  are 
restored.  The  ship's  log  is  updated,  and  the  game 
map  shows  your  progress.  Lines  91-93  define 
DTS  (dots);  three  characters  are  needed  for  each 
dot.  One  dot  on  the  map  represents  200  miles 
(line  1002).  Then,  if  there  have  been  no  fatal  short- 
ages, the  voyage  continues  for  another  week. 

Your  ship  "sails"  across  the  screen  in  line 
15155.  In  the  race  (lines  3093,  3096),  the  ships  are 
placed  at  the  right  of  the  screen  and  a  string  of 
DELETES  is  printed  several  times.  (If  you  win  the 
race,  the  crew  is  happier;  they  become  disgruntled 
by  a  loss.) 

Lines  1000-1250  contain  the  whale  hunting 
routine.  The  whales  are  within  a  long  string  (F$) 
oi shifted  Spaces,  which  are  cyclically  rearranged 
(line  1210)  and  the  leftmost  40  characters  printed 
each  time.  The  program  checks  the  keyboard, 
then  moves  the  whales  until  you  press  H,  which 
drops  the  harpoon.  The  program  then  alternately 
moves  the  whales  and  lowers  the  harpoon. 

To  check  whether  the  harpoon  hits  a  whale, 
the  screen  is  opened  for  INPUT  (line  1 100).  The 
entire  row  of  the  screen  to  the  right  of  the  harpoon 
is  input.  If  the  first  character  is  not  a  shifted  space, 
a  whale  has  been  hit. 

Landfall  To  Gather  Supplies 

The  subroutine  beginning  at  line  4000  describes 
the  sighting  of  a  river  mouth.  Landing  offers  you 
a  chance  to  get  food  and  water,  and  to  cheer  up 
the  crew.  Sometimes  (line  4060)  natives  appear. 
As  many  early  explorers  discovered,  they  are 
unpredictable.  Sometimes  they  are  friendly  and 
trade  gold  for  trinkets  (cheering  up  the  crew); 
sometimes  they  attack. 

If  they  attack,  you  must  type  RUN  and  press 
RETURN  quickly.  The  clock  is  set  to  0  in  line  4320, 
to  time  how  fast  you  typed  in  RUN.  After  you 
press  RETURN,  the  program  looks  at  the  clock.  If 
more  than  200  jiffies  have  passed  (line  4340),  the 
natives  attack  and  kill  you. 

The  same  timing  technique  is  used  when  the 
Arab  dhows  attack.  The  Arabs  are  fiercely  deter- 
mined to  protect  their  trading  routes.  Vasco  da 
Gama  himself  was  nearly  trapped  by  them  more 
than  once. 

The  program  as  written  will  run  on  a  Com- 
modore 64  or  PET. 
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Readers  who  do  not  want  to  type  in  the  pro- 
gram can  obtain  a  copy  by  sending  a  blank  tape 
or  disk,  a  stamped,  self-addressed  mailer,  and  a 
check  for  $3  to: 

M.  /.  Winter 

Math  Department,  Michigan  State  University 

East  Lansing,  Ml  48824 

See  program  listing  on  page  159.  tH 


FREE  OFFER! 


COMPUTER  CASSETTES 


58$ 


FREE  "States  and  Capitals  Game" 

with  each  order  of  20  or  more  C-JOs 

Specify  VIC-20  or  Commodore  64 

•  C-t0  Length 

•  5  Screw  StieWFree  Labels 

•  Lifetime  money  back  guarantee 
>  Storage  Box  add  12c  each 

•  S2  00  shipping  charge  —  any  quantity 
(Canadian  orders  S4. 00  shipping) 

•  NJ  Residents  add  6"M>  sales  tax 

•  Send  check  or  money  order  to 

PARALLEL  SYSTEMS 

Box  772 

Blackwood,  NJ 06012 

609-227-9634 


For  Commodore  64™ 


SPANISH  VERB  TUTOR 

CONTAINS  OVER  500  VERBS 
II  you  can't  find  it  here  you  probably  shouldn't  say  it. 

COMPLETE  CONJUGATIONS  OF  THE 

EIGHT  MAJOR  TENSES 

Including  those  tricky  irregular  verbs 

STUDY  LEVELS 

Beginner College 

TRANSLATIONS 

Spanish     English 

English     Spanish 

$29.95  for  Cassette 

Write  lor  information  or  send  check  or  money  order  to; 

PRONTO  SOFTWARE 

P.O.  Box  14815 

Hartford,  CT  061 14 

Commodore  64  is  a  Trademark  ol  Commodore  Electronics  Limited 


INCOME  TAX  BY  SOFTAX 

DO  YOUR  1983  INCOME  TAX  RETURN  ON  THE 

COMMODORE  64 

PREPARE  YOUR  OWN  RETURN  QUICKLY  AND  EASILY.  DO  RETURNS 
FOR  OTHERS  FOR  CASH1  COMPARE  INVESTMENT  STRATEGIES 


TAX 
DEDUCTIBLE 


DISKETTE  ONLY:  $69.50*     FFHLy 

YOU  GET:  Form  1040,  Sehodulfls  A,  B,  C  0,  E,  G.  SE,  W  and  Form 

2441   Menu  Drlyniv  Print  Flic  and  input  Storage  Capability 
BONUS:  Form  1040  with  Mui  1384  Ta>  Hams.  (Sua  wtiat  lhat  tan 

Ihtllff  may  Do  wottti  on  naxt  year's  return ) 
DISCOUNT:  Coupon  included  lot  •  discounl  on  [tie  1984  vetsion  ol 

Sottan. 
OPTION:  For  S5  00  morn  l,J74.S0)*  you  also  gel  11m  Minnesota 

Individual  Income  Tax  Return  (A  baigan  lor  Ihe  toughest 

return  In  the  land.) 

SOFTAX,  INC.  P.O.  BOX  332  ST.  PAUL,  MN  55102 
(612)  224-7477 


COMMODORE  04  li  •  Trails  mark. 
o1  Commotio  r»  Elactronlca,  LTD 


•Plus  11.50  POSTAGE    MINNESOTA 
RESIDENTS,  ADO  (•■'■  SALES  TAX 
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Data  Manager 

For  The  Commodore  64 


Dale  F.  Brown 

Simplicity,  versatility,  and  low 
cost  are  the  attractions  of  Data 
Manager,  an  information  collec- 
tion and  retrieval  system  from 
Timeworks.  It's  not  the  most 
sophisticated  data  base  system 
around,  but  Data  Manager  is  a 
good  solution  for  those  seeking 
a  simple,  easy-to-run,  com- 
puterized index  card  system  for 
home  or  personal  applications. 

The  program,  while  not 
endowed  with  blazing  speed  or 
a  lot  of  fancy  options,  can  bring 
some  organization  to  your 
Christmas  lists,  club  member- 
ship records,  bowling  team 
scores,  addresses,  or  account 
numbers. 

If  your  goal  is  to  crunch  a  lot 
of  information,  process  long 
columns  of  keywords,  or  do 
extensive  cross  referencing,  Data 
Manager  might  fall  short  of  your 
expectations. 

Have  A  Plan  From 
The  Beginning 

Data  Manager  initializes  a  disk 
and  formats  it  when  you  start  up 
the  system.  Before  formatting, 
however,  you  must  decide  how 
many  lines  per  record  you  want. 
Once  the  data  disk  is  formatted, 
you  cannot  change  it. 

Records  can  have  from  one 
to  eight  lines,  with  up  to  30  char 
acters  per  line.  A  normal  data 
disk  will  hold  1040  five-line 
records. 

When  new  information  is 
entered,  the  program  automati- 


cally moves  to  the  end  of  the 
data  file.  You  enter  information 
for  each  line  of  the  record,  then 
you  can  correct  your  entry.  If 
everything  is  correct,  the. pro- 
gram writes  your  record  to  disk. 
When  you  replace  a  record, 
each  replacement  line  is  written 
to  disk  as  you  enter  it,  so  this 
process  can  be  a  bit  slow. 

Retrieving  Data 

Once  all  your  records  are  en- 
tered, you  have  several  ways  to 


recall  and  display  the  data.  You 
can  search  and  recall  by  exact 
name,  by  data  pointers,  or  by 
index  codes. 

Data  pointers  are  references 
to  lines  within  the  records — b> 
might  be  used  to  search  for  birth- 
dates,  or  tpso  might  be  used  to 
find  top  scores  in  your  bowling 
records.  The  index  code  might 
be  (R)  or  (F)  entered  into  your 
address  records  to  differentiate 
between  relatives  and  friends. 

If,  for  example,  you  wish  to 
find  the  names  of  everyone  in 
your  records  with  a  birthday  in 
June,  you  could  use  the  b>  data 
pointer  and  specify  a  range  of 
06/01/00  to  06/30/00. 


No  Foolin'  Aroun 


The  Commodore  64  is  your  first  "real" 
computer.  So,  it  stands  to  reason  that 
the  software  you  use  be  real  too.  And, 
useful. 
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The  X-Search 
Function 

Data  Manager  includes  an  X- 
Search  feature  that  allows  you  to 
perform  secondary  searches  on 
your  data.  In  the  example  above, 
you  asked  for  the  names  of 
everyone  with  a  birthday  in  June. 
You  could  take  it  a  step  further 
and  use  X-Search  to  search  that 
data  subset  for  records  that  con- 
tained an  (R)  index  code.  The 
result  would  be  a  list  of  your 
relatives  who  had  birthdays  in 
June. 

After  using  X-Search,  you 
can  print  out  the  results  and 
then  use  X-Search  again  and 
again  to  search  for  different  index 
codes  or  data  pointers. 

The  program  also  allows 
vou  to  retrieve  and  analyze 


numerical  data  within  records. 
For  example,  if  you  used  tpsc>  in 
each  record  to  display  the  top 
bowling  score  of  each  member 
of  your  bowling  club,  you  could 
retrieve  that  data,  add  it,  average 
it,  compute  a  standard  deviation, 
and  draw  a  bar  chart  of  the  in- 
formation. 

Data  Manager  includes  a  20- 
page  manual  that  takes  a  bit  of 
study  to  fully  understand.  But 
once  you  learn  the  basics  of  rec- 
ord entry  and  retrieval,  you'll 
find  the  program  a  good  tool  for 
organizing  and  maintaining  per- 
sonal and  household  records. 
Data  Manager 
Timeworks,  Inc. 
405  Like  Cook  Road 
Deerfield,  !L  60015 
(312)291-9200 
$24.95  ■ 


Purple  Turtles 

Lance  Elko,  Editor 

Quicksilva,  an  established  British 
software  house,  has  entered  the 
U.S.  market.  One  of  its  initial 
offerings  is  Purple  Turtles — a 
unique  and  charming  arcade- 
style  game.  Written  by  Mark 
and  Richard  Moore  for  the  Com- 
modore 64,  Purple  Turtles  uses 
the  64's  sound,  color,  and 
graphics  to  groat  advantage. 

At  first,  Purple  Turtles  might 
strike  you  as  one  of  the  most 
colorful  and  lively  games  you've 
ever  seen  on  the  64.  But,  you 
might  also  jump  to  the  conclu- 
sion that  it's  a  game  just  for  chil- 
dren. After  playing  for  a  few  . 
minutes,  though,  you  might 


We'll  back  you  up!    m 

ATTENTION  COMMODORE  64  OWNERS 

If  you  own  a  disk  drive  then  you'll  need  "The 
Clone  Machine".  Take  control  of  your  1541  with  this 
package  that  includes: 

1.)  Complete  and  thorough  users  manual 

2.)  Copy  with  one  or  two  drives 

3.)      Investigate      and      back-up      many 

"PROTECTED"  disks 

4.)  Copy  all  file  types  including  relative  types 

5.)  Edit  and  view  track/block  in  Hex  or  ASCII 

6.)  Display  full  contents  of  directory  and  print 

7.)  Change  program  names,  add,  delete  files 

with  single  keystroke 

8.)  Easy  disk  initialization 

9.)  Supports  up  to  four  drives 


'My  only 
copy 
'//        gone!' 


U 


Special  intro  s39.95 


?n?UMeflnvHeabUt0rS  CALL  (201)  838-9027 


micro 
umrE 


P.O.  Box  113 

Pompton  Plains,  N.J. 

07444 


well  change  your  mind. 

The  game's  instructions  are 
concise  and  clear.  The  opening 
scenario,  complete  with  a  game 
demonstration  screen  and  a  de- 
lightful melody  that's  somehow 
vaguely  familiar,  scrolls  options 
across  the  screen  center — press 
the  space  bar  to  start,  I  for  in- 
structions, and  H  for  high 
scores. 

Selecting  I  gives  you  all  the 
information  you  need  to  play 
the  game  effectively.  The  game 
options  are  spelled  out.  You  can 
choose  to  play  using  the  joystick 
or  keyboard.  You  can  press  RUN/ 
STOP— RESTORE  to  reset  the 
game.  Or  select  one  of  ten  levels 
for  game  speed  or  skill  level. 
And  the  ever-welcome  pause 
function  is  included.  Pressing  P 
freezes  the  game  until  you're 
ready  to  resume  by  pressing  it 
again. 

More  Than  Meets 
The  Eye 

The  object  of  the  game  is  to  cross 
a  pond  by  hopping  on  the  backs 
of  four  very  fickle  turtles,  gather 
fruit,  and  return.  Sounds  easy, 
but  it's  not.  The  harmless  looking 
turtles  float  on  the  water's  sur- 
face and  bob.  But,  one  or  more 
of  them  will  submerge  unpre- 
dictably. If  you're  in  the  middle 
of  a  jump  and  the  turtle  you're 
about  to  land  on  decides  to  take 
a  dive,  you're  in  the  drink.  This 
costs  one  life  (you  start  with 
three,  and  receive  a  bonus  life 
every  time  you  advance  a  level). 

Assuming  you  start  at  the 
default  speed  and  level  (Level  0 
for  both),  the  first  couple  of 
rounds  are  not  terribly  difficult. 
Only  one  turtle  at  a  time  will 
descend.  But  you're  soon  into 
the  next  round  and  possibly  a 
little  overconfident.  You  now 
have  to  contend  with  two  diving 


How  to  make  your  computer 
look  as  smart  as  it  is. 


Store  it  in  a  beautiful 
piece  of  furniture  specifi- 
cally designed  for  the 
proper  operation  and 
Storage  of  your  home 
computer  equipment. 

•  Upper  unit  shelf  adjusts 
to  most  computers. 

•  Keyboard  shelf  at  cor- 
rect typing  height  with 
plenty  of  work  surface, 

•  Monitor  placement  at 
proper  height  and  view- 
ing distance  eliminates 
fatigue. 

•  Lower  unit  shelves  for 
storage. 


•  Deskshelfswingsupto 
close  off  unit  when  not 
in  use. 

•  Compact  design;  32"w 
x.W'hx24"d. 

•  Indestructible  natural 
oak  or  walnut  wood- 
grain  finish. 

■  Ready  to  assemble  with 
only  a  screwdriver, 

ONLY  $149.00 

To  order  call: 
(206)  42.1-7524 
Visa  &  MasterCard 
accepted. 


THE  FURNITURE  BYTE 

P.O.  Box  1757    9 Judith  Place    Longview,  WA  98632 


No  Lookin'  Around 


We  know.  You've  been  looking 
everywhere  for  64  software,  INSTA's 
interactive  line  of  software  is  just  a 
phone  call  away. 

Imagine,  specially  designed  software 
that  "talks"  to  one  another.  Your  home 
budget  created  with  CALC  instantly 
becomes  a  GRAPH.  And  your  club 
membership  list  with  addresses  and 
monthly  dues  quickly  becomes  a  form 
letter,  printed  over  and  over  again, 
automatically,  for  each  member. 

So,  no  more  lookin'  around.  INSTA  is 
here  now! 
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INSTA 

By  Cimarron  a  division 
o(  MICRO  SCI  CORP 
215aHnihawayStreei 
Santa  Ana,  C A  92705 
(714)241-5600 


-SCI 


Commodore  64  is  a 
trademark  of  Commodoro 
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A  turtle  begins  his  descent  in  Purple 
Turtles.  The  pause  feature  is  one  of 
man]/  extras  in  this  live!]/  game  for  the 
Commodore  64. 

turtles.  This  pattern  continues 
until  you're  at  a  point  where  all 
four  are  acting  undependably. 
After  a  few  blunders,  you'll  soon 
learn  that  there's  more  to  the 
game  than  meets  the  eye.  You 
must  develop  a  strategy. 

Another  tendency  for  first- 
time  players  will  be  to  play  cau- 
tiously and  deliberately.  This 
will  get  you  nowhere,  as  there's 
another  obstacle  to  overcome: 
the  timer.  You  must  successfully 
return  five  pieces  of  fruit  within 
a  fixed  amount  of  time  to  get  to 
the  next  level.  The  timer,  placed 
somewhat  inconspicuously  at 
the  top  of  the  screen,  moves 
along  deceptively  slowly.  The 
more  you  concentrate  on  the 
treachery  of  the  turtles,  the  more 
likely  GAME'S  OVER  will  flash 
on  the  screen. 

The  Frenzied  Owl 

There  are  a  lot  of  nice  surprises 
and  pleasant  distractions  in  Pur- 
ple Turtles.  Besides  very  appeal- 
ing color  combinations,  the  au- 
thors have  provided  an  ex- 
tremely active  screen  by  taking 
full  advantage  of  the  64's  sprite 
capabilities.  The  blue  sky  is  filled 
with  various  colored  clouds  and 
hot-air  balloons  which  float  hap- 
pily across  the  screen,  unaware 
of  your  plight  below. 

The  trees  on  each  side  of  the 
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pond  are  interesting,  too.  The 
tree  on  the  left,  your  starting 
position,  is  home  to  an  owl  that 
blinks  and  twitches  his  ears 
throughout  the  game.  When 
you  return  successfully  with 
your  fruit,  the  owl  goes  into  a 
frenzy,  shrieking  hysterically. 
This  provides  a  not  so  gentle 
reminder  that  your  score  has  in- 
creased. 

The  tree  on  the  other  side  of 
the  pond  bears  a  different  fruit 
for  each  new  level  achieved. 
Before  you  start  across  the  pond 


each  time,  one  piece  drops  to 
the  ground.  You  collect  it  auto- 
matically by  crossing  the  pond. 
Purple  Turtles  is  quite  well 
designed.  It's  innocent  and  en- 
chanting, yet  you'll  not  quickly 
master  any  of  the  higher  levels. 
If  Quicksilva  can  produce  more 
games  of  this  quality,  it  is  sure  to 
find  a  niche  in  the  U.S.  software 
market. 
Purple  Turtles 
Quicksilva,  Inc. 
426  West  Nakoma 
San  Antonio,  TX  78216 
$29.95  disk     $24.95  tape  <Bf 


COM  voice: 

Synthesizer  For  The  VIC-20 


Todd  Heimarck,  Assistant  Editor 


COMvoice,  a  voice  synthesizer 
for  the  VIC-20,  gives  your  com- 
puter the  ability  to  talk,  and  it's 
remarkably  easy  to  use. 

The  COMvoice  package 
contains  a  cartridge,  a  speaker 
with  cord,  and  a  20-page  in- 
struction manual.  The  cartridge 
plugs  into  your  VIC,  and  the 
speaker  plugs  into  the  cartridge. 

If  you  don't  like  reading 
instruction  manuals,  all  you  need 
to  know  is  that  COMvoice  adds 
one  new  BASIC  command: 
SPEAK,  This  command  works 
almost  like  PRINT,  but  instead 
of  putting  words  on  the  screen, 
the  computer  talks  to  you.  You 
must  enclose  the  words  to  be 
spoken  in  double  quotation 
marks.  A  dial  on  the  cartridge 
controls  the  volume. 

It  Knows  The  Tough 
Words 

COMvoice  will  pronounce  95 
percent  of  English  words  cor- 
rectly. It  has  a  fairly  sophisticated 


method  of  figuring  out  the  con- 
nection between  spelling  and 
speech.  For  example,  it  correctly 
pronounces  tough,  rough,  though, 
although,  bought,  and  brought. 
It  does  very  well,  considering 
the  different  sounds  ough  can 
represent. 

Occasionally  a  strange  word 
pops  up.  COMvoice  has  prob- 
lems pronouncing  pizza  (piz-ah), 
women  (woh-men),  integer  (int- 
eej-er),  and  certain  other  words. 
This  usually  happens  because  a 
word  is  spelled  one  way  but 
pronounced  another.  If  you  run 
into  a  problem  word,  you  can 
correct  it  by  deliberately  mis- 
spelling it  (so  it  looks  like  the 
way  it  is  spoken). 

COMvoice  can  also  speak 
letters  and  numbers.  The  voice 
is  somewhat  mechanical  and 
monotonous;  if  you've  heard 
computers  talk  in  movies  (War- 
Cames)  or  on  television  (Whiz 
Kids),  you  can  get  a  good  idea  of 
the  sound  quality.  But  you  can 
add  four  levels  of  inflection,  to 
stress  certain  words  or  to  make 
questions  sound  more  natural. 
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For  CBM-64 
and  VIC 
owners  only: 

This  is  just  1  of 
20  pages  of  the 
newest  and  biggest 
Skyles  catalog,  hot 
off  the  press. 

We  know  you'll 
want  this  page,  in 
its  full  7x10 
splendor,  and 
another  19  pages 
of  peripherals, 
software  and  books 
that  will  make  your 
CBM-64  or  VIC 
computer  even 
nicer  to  live  with. 
So,  if  we  missed 
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sending  you  your 
very  own  copy 
within  the  last  few 
weeks,  call  us  at 
(800)  227-9998 
(unless  you  live 
in  California,  in 
which  case  call 
(415)  965-1735. 
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From  Skyles 
Electric  Works,  the 
oldest  and  largest 
professional 
specialists  in  the 
business. 


Skyles  Electric  Works 

231-E  S.  Whisman  Road 
Mountain  View,  California  94041 


REVIEWS 


String  Variables 
Spoken  Here 

You  can  set  up  string  variables 
for  pronunciation,  for  example, 
A$=  "WELCOME  HOME": 
SPEAK  A$.  And  there  are  several 
options  for  controlling  pauses.  A 
single  space  will  cause  a  slight 
pause.  Commas  and  periods  will 
result  in  longer  pauses. 

The  SPEAK  command 
works  in  immediate  mode  (with- 
out a  program  line  number)  or 
within  programs.  The  instruction 
manual  also  includes  a  list  of 
over  60  sounds  you  can  access 
with  POKEs  directly  into  mem- 
ory. You  can  program  speech 
either  in  BASIC  or  in  machine 
language. 

The  most  impressive  thing 
about  COM  voice  is  how  easy  it 
is  to  use.  You  don't  have  to  learn 
a  phonetic  code  that  translates 
words  into  special  numbers  and 
symbols  which  only  the  com- 
puter recognizes,  as  with  some 
other  speech  devices. 

There  are  a  variety  of  inter- 
esting applications  you  could 
develop  with  COMvoice.  Imagine 
an  arcade  game  that  talks,  warn- 
ing you  of  sneak  attacks  or 
suggesting  strategy-  Or  educa- 
tional software  for  preschoolers 
who  are  just  learning  the  al- 
phabet. The  computer  could 
draw  a  picture  of  a  bee  next  to 
the  letter  B  and  say  it  to  the  child. 
COMvoice  might  also  be  useful 
in  data  entry;  the  computer  could 
tell  you  what  you  just  typed. 

Some  Minor  Faults 

There  are  a  few  minor  faults  in 
this  voice  synthesizer.  It  has 
problems  with  the  ng  sound.  It 
is  difficult  to  tell  the  difference 
between  thin  and  thing.  And 
leaving  off  the  closing  quotation 
mark  results  in  a  7SYNTAX 
ERROR.  Programmers  who  reg- 
ularly omit  the  final  quote  on 
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PRINT  statements  (to  save  a  bit 
of  memory)  may  find  this  feature 
somewhat  annoying. 

If  you  are  used  to  PRINTing 
multiple  variables  separated  by 
commas  or  semicolons,  you  will 
have  to  remember  that  you  can- 
not do  this  with  the  SPEAK  com- 
mand. SPEAK  accepts  only 
single  string  variables  and  it 
does  not  recognize  string  arrays. 
You  can  get  around  the  single 
string  limitation  by  converting 
arrays  with  a  line  such  as 
AS  =  BS(1,6):SPEAKAS. 

The  four  levels  of  intonation 
are  based  on  (musical)  tone 
rather  than  volume.  The  voice 
would  sound  more  realistic  if 
you  could  stress  some  words  by 
making  them  louder  than  others. 
The  only  way  to  control  volume 
is  to  turn  the  dial  on  the  cartridge; 
you  cannot  do  it  from  within  a 


program. 

And,  finally,  the  RUN/STOP 
key  is  disabled  while  the  voice  is 
on.  That  means  you  cannot 
rudely  interrupt  the  computer 
while  it  is  talking;  you  have  to 
wait  for  it  to  finish  before  you 
STOP  the  program. 

Considering  the  overall  ef- 
fectiveness and  ease  of  use,  these 
flaws  are  merely  quirks.  Once 
you  get  used  to  programming 
with  COMvoice,  you'll  learn  to 
ignore  them. 

COMvoice  uses  a  VOTRAX 
SC-01  chip  and  is  sold  with  a 
one-year  warranty.  A  Commo- 
dore 64  version  is  also  available. 

COMvoice 

Genesis  Cotnpnttcr  Corporation 

P.O.  Box  1143 

Bethlehem,  PA  18018 

(215)  861-0850 

$149.95  W 


HUNDREDS  OF  PROGRAMS  AVAILABLE 
FOR  THE  COMMODORE  64  &  VIC  20 


Commodoreg        A||  pfjces  up  tQ  VIC  20 

fBJ||irfTl\     40%  OFF  RETAIL 


HOME/BUSINESS 
Practiealc  (DJ 
Practical  (CASS) 
Bank  St.  Writer  (D) 

Smart  64  Terminal 

Quick  Brown  Fox  (CT] 

Paper  Clip  (D) 

Word  Prc-'SpellRight  (D) 

CalcResult  Advanced  (D) 

Data  Manager  (D/CASS) 

Home  Acct  (Continental)  (D) 

EDUCATIONAL 

Facemaker  (D/CT) 

Kindercomp  (D/CT) 

Delta  Drawing  (CT) 

Type  Attack  (D) 

Early  Games  (D/CASS) 

Electronic  Party  (VIC  20/CASS) 

Square  Pairs  (VIC  20/CASS) 

Turtle  Trax  (CIC  20/CASS) 

Alphabet  Zoo  (CT) 

Koala  Touch  Tablel 

Mastertypo 


41.50 
37  00 
52.50 
31  95 
42.95 
9395 
7295 
112  50 
18-75 
49  95 


22.95 
19.95 
26  95 
28  95 
22.50 
2250 
2250 
22.50 
22  95 
72.95 
28.95 


GAMES 

Choplifter  (CT)  28  95 

Lode  Runner  (D)  25.95 

Enchanter  (D)  37  50 

Jumpman  (D/CASS)  27.95 

Beach  Head  (D)  26  95 

Neutral  Zone  (D/CASS)  26  95 

Temple  Of  Apshai  (D/CASS)  27.95 

HARDWARE  AMD  ACCESSORIES 

Cardco  Printer  Interface  62.95 

CardprintG  71.95 

The  Connection  Parallel  Int.  89.95 

Cardco  3  Slol  Exp.  Board  31.95 

Cardco  5  Slot  Exp.  (C-64)  55  95 

Data  20  Video  Pak  80  (C-64)  143.95 
Data  20  8K  Display  Mgr 

(40/80  col  plus  Word  Proc)  1 19.95 

0  K  Display  Mgr  (40/60)  79.95 

Zenith  12"  Green  Monilof  105.00 
Brolher/Dynax  DX-15 

(Letter  Quality)  485  00 

C  Itoh  Prowriter  8510AP  375.00 

Gemini  10X  299.00 


Write  or  call  far  FREE  CATALOG.  TO  ORDER:  CALL  1-714-643-1056 

8:00  A.M  -6  00  P.M.  PST  Mon  -Sat  or  send  check  or 
credit  card  number,  signature  and  expiration  date  Please  include  phone  number. 

CENTURY  MICRO  PRODUCTS 
P.  O.  Box  2520,  Mission  Viejo,  CA  92690 

Visa/Maslercard  add  3%  Personal  checks  allow  2  weeks  to  clear  CA  residents  add  sales  tax 
L^  Shipping  and  handling  add  S3  00  (hardware  extra)   Prices  subject  lo  change  J 


Go  on  line  in  the  world's  fastest  growing  technology. 

NEW!  DATA  COMMUNICATIONS 
TRAINING  FROM  NRI 


Practical  training  includes 
computer,  modem,  test  instruments, 
and  access  to  exclusive  NRI 
communications  network. 

Satellites. .  .microwave. .  Jiberoptlcs... 
dedicated  land  lines.  Suddenly  the  world  is 
communicating  In  a  new  and  different  way, 
via  digital  data  systems.  People  talking  to 
computers. . ,  computers  to  computers. . . 
information  Is  stored,  retrieved,  and  relayed 
In  nanoseconds. 

Industry,  opportunities  to  triple 

Data  and  telecommunications  is  already  a 
$150  billion  industry  and  is  expected  to  triple 
over  the  next  five  years.  One  typical  company 
has  grown  from  $85  mi  I  lion  to  $650  mil  lion. . , 
a  765%  growth  since  1978  alone.  The  need  for 
qualified  technicians  to  Install,  maintain,  and 
service  this  enormous  investment  in  high-tech 
equipment  Is  tremendous  even  now. 
Opportunities  and  salaries  can  go  nowhere 
but  up  and  up. 

NRI  will  train  you  at  home 

You  can  learn  at  home  in  your  spare  time  to 
become  a  data  communications  technician 
with  NRI  at-home  training.  NRI  will  start  you 
with  the  basics,  build  upon  your  knowledge 
with  easy-to-follow,  bite  size  lessons  to  take 
you  into  the  world  of  digital  data  communica- 
tions. You'll  learn  what  It  takes  to  work  on 


Training  includes  all  [his 
equipment  you  keep . . ,  16K 
computer,  modem,  breakout 
box,  digital  multimeter  and  the 
exclusive  NRI  Discovery  Lab. 


satellite,  microwave,  fiber  optic, 
and  telephonedata  links. 
And  you'll  learn  atyourown  comfortable 
pace,  without  classroom  pressures  or 
evenings  away  from  your  family.  Over  the  past 
70  years,  N  Rl  rias  taught  the  latest  high-tech 
skills  to  almost  2  million  students  to  become 
the  world's  largest  and  most  successful 
school  of  Its  kind. 

Hands-on  training  includes 
computer,  modem,  breakout  box  and 
much  more 

NRI  takes  you  far  beyond  "book  learn Ing." 
As  part  of  your  course,  you  receive  plenty  of 
practical  handson  training  that  gives  you  real- 
world  skills.  You  get  the  Radio  Shack  Color 
Computer,  with  16K  memory  to  teach  you  the 
systems  and  languageo)  data  communi- 
cations plus  you  gel  an  operating  modem  to 
let  you  tie  In  with  world-wide  communications 
networks. 

You  build  your  own  RS-232C  interface 
breakout  box,  an  indispensable  installation  and 
trouble-shooting  instrument  you'll  use  through- 
out your  career.  You  receive  a  professional 
digital  multimeter  and  the  N  Rl  Discovery  Lab, 
where  you  construct 

solid-state  circuits  and      _^^_^_ 
demonstrate  practical 
applications  of  the 
theory  you've  learned. 


Exclusive  NRI  data  network 

You'll  learn  what  data  communications  Is  all 
about  by  actually  becoming  part  of  an  oper- 
ating network.  You'll  goon  line  to  "talk"  to  your 
instructor,  take  your  final  exam  by  computer 
link,  communicate  with  other  NRI  students  and 
leave  messages  on  the  NRI  "bulletin  board." 

As  part  of  your  course,  you'll  also  receive 
membership  In  THE  SOURCE  "J  a  regular 
$100  value.  A  phone  call  ties  you  into 
computers  loaded  with  instant  news,  stock 
quotes,  electronic  mail,  educational  programs, 
games,  even  discount  shopping  and  travel 
reservations. 

Move  into  the  future, 

send  for  Free  Catalog 
You  can't  find  training  like  this  anywhere  else 
. .  .only  NRI  trainsyou  at  home  for  an  exciting 
and  rewarding  career  in  the  brilliant  new  world 
of  Data  Communications,  Mail  the  coupon 
right  now  for  our  big  catalog  of  high-tech 
electronic  careers  showing  all  the  equipment 
you  get,  detailed  lesson  descriptions,  and 
career  opportunities.  Look  it  over  and  decide 
where  you  want  your  future  to  grow.  Act  now. 
There's  a  real  need  for  trained  data 
communications  technicians. 


M 


NRI  Schools 

McGraw-Hill  Continuing 

Education  Center 
3939  Wisconsin  Avenue 
Washington,  D.C.  20016 
We'll  give  you  tomorrow. 


All  Career  courses 
SKircvcd  Lnder  Gl  Ml 

□  Cheek  to  owns 


CHECK  ONE  FREE  CATALOG  ONLY 
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n  Computer  Electronics  Willi  Microcomputers 
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REVIEWS 


Seafox  For  The  VIC-20 

Tony  Roberts,  Assistant  Managing  Editor 


lint      one 


Far  beneath  the  surface  of  some 
distant  ocean  is  a  submarine 
awaiting  your  command.  Your 
mission  is  to  prevent  the 
freighters  from  passing  while 
allowing  hospital  ships  to  sail 
through. 

The  game  is  Seafox,  an  under- 
water action  game  adapted  for 
the  VIC-20  from  the  Apple  and 
Atari  versions.  It  is  available  on 
cartridge  from  Br^derbund  Soft- 
ware. At  its  simplest  levels,  Seafox 
is  challenging.  At  its  most  diffi- 
cult, it's  an  undersea  nightmare. 

Seafox  is  a  shoot-em-up 
game.  There's  plenty  of  action, 
but  the  pace  is  slower  than  you 
might  be  used  to  in  a  space  game. 
This  accurately  reflects  the 
medium  in  which  the  game  is 
set — water.  Your. submarine,  the 
enemy  subs,  the  torpedoes,  and 
mines  all  move  through  the 
water  in  a  deliberate,  liquidlike 
fashion. 

You  usually  have  time  to 
see  the  dangers  around  you,  but 
you  don't  always  have  time  to 
react.  The  game  realistically  re- 
flects the  differences  between 
maneuvering  a  bulky  submarine 
in  the  dense  undersea  world 
and  piloting  a  sleek  spaceship  in 
the  vacuum  of  outer  space. 

Three  Subs  And  A 
Chantey 

As  Seafox  begins,  you  are  sup- 
plied with  three  submarines, 
and  you  are  treated  to  the  open- 
ing bars  of  "Sailor's  Hornpipe." 
This  melody,  though  a  bit  out  of 
tune,  serves  to  warn  you  that 
the  action  is  about  to  begin. 

Your  sub  roams  the  depths 
while  the  freighters  and  hospital 
ships  use  the  shipping  lanes 
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above.  To  complete  your  first 
mission,  you  must  sink  ten  of 
the  blue  freighters  while  fending 
off  attacks  by  a  fleet  of  enemy 
subs. 

To  fire  at  a  freighter,  give 
the  joystick  button  a  quick  tap 
and  a  torpedo  is  launched  toward 
the  surface.  If  you  hold  down 
the  joystick  button,  you  launch  a 
torpedo  from  your  forward 
tubes.  This  weapon  is  used 
against  your  underwater  foes, 
and  also  can  be  used  to  detonate 
depth  charges  and  magnetic 
mines.  Only  one  torpedo  of  each 
type  can  be  active  at  a  time. 

Your  mission  is  further 
hampered  by  your  limited  sup- 
ply of  fuel  and  torpedoes.  You 
have  30  torpedoes  and  1200  units 
of  fuel  when  you  begin.  You 
burn  fuel  at  an  alarming  rate  and 
must  always  keep  an  eye  out  fur 
your  supply  ship. 

Supply  Ships  And 
Undersea  Creatures 

The  supply  ship  appears  at  in- 
tervals at  the  bottom  of  the 
screen.  It  releases  a  trained  dol- 
phin which  carries  fuel  and  tor- 
pedoes. You  must  make  contact 
with  the  dolphin's  pack  in  order 
to  take  on  new  supplies.  If  you 
miss  connections  with  the  dol- 
phin, you  have  barely  enough 
fuel  to  hold  you  until  the  next 
supply  ship  arrives.  If  you  fail  to 
resupply  your  sub  a  second  time, 
you  inevitably  sink  to  the  bottom 
of  the  sea. 

The  sea  abounds  with  giant 
clams  that  seem  to  enjoy  feasting 
on  dolphins.  They  gobble  up 
your  supplies  as  well,  so  it's  best 
to  refuel  as  quickly  as  possible. 
If  you  lose  a  dolphin  to  a  clam, 


A  dolphin  carrying  an  unclaimed  supply 
pack  swims  off  in  Sea  Fox. 

you  simply  have  to  wait  for  the 
next  supply  ship,  but  if  any  other 
woe  befalls  your  friendly  dol- 
phin, you  pay  dearly.  Should  a 
torpedo,  mine,  or  depth  charge 
destroy  the  undersea  mammal, 
you  have  only  sedconds  before 
your  entire  ship  is  swallowed  by 
a  giant  whale. 

While  your  main  mission  is 
to  sink  freighters,  you  do  receive 
points  for  blowing  up  enemy 
subs,  mines,  and  depth 
charges — something  which  must 
be  done  anyway,  just  to  survive. 

Should  one  of  your  tor- 
pedoes hit  a  hospital  ship,  you'll 
do  no  damage.  However,  the 
weapon  will  bounce  off  the 
heavily  armed  ship  and  head 
back  your  way.  Besides  present- 
ing you  with  an  added  peril,  this 
also  deprives  you  of  your  ability 
to  fire  another  surface  torpedo 
until  the  first  one  explodes  on 
the  sea  bottom. 

On  To  Advanced 
Assignments 

As  you  begin  play,  your  only 
danger  is  a  fleet  of  enemy  sub- 
marines. As  you  advance  to 
higher  levels,  the  complications 
increase.  On  level  two,  a  fleet 
of  destroyers  is  added  to  the 
shipping  lane.  These  ships  drop 
depth  charges  to  make  your  life 
miserable.  In  the  third  level,  the 
enemy  subs  begin  firing  tor- 
pedoes at  you,  and  what  happens 


REVIEWS 


alter  that  I've  never  been  able  to 
discover.  The  game  includes  five 
levels,  and  the  instructions  make 
reference  to  magnetic  mines,  so 
I  assume  they're  part  of  the 
finale, 

A  nice  feature  of  Sen  fox  is 
that  the  depth  charges,  mines, 
enemy  subs,  torpedoes,  etc, 
have  the  ability  to  home  in  on 
you.  When  you  take  evasive 
action,  you  must  be  evasive.  It 
doesn't  do  to  simply  move  aside 
and  let  them  go  past. 

Seafox  requires  that  you 
develop  strategies,  and  it  re- 
quires that  you  keep  your  sub- 
marine in  constant  motion.  Take 
it  up  to  get  a  clean  shot  at  a 
freighter,  descend  for  refueling, 
reverse  engines  to  avoid  an  ex- 
plosive charge.  It  takes  concen- 
tration to  stay  alive,  and  you'll 
find  that  it's  carelessness  that 
most  often  does  you  in. 

Seafox 

Briderbund  Software 

17  P iu 1 1  Drive 

San  Rafael,  CA  94903 

(415)479-1170 

$34.95  W 


COMPUTE  !'s 
GAZETTE 

TOLL  FREE 

Subscription 

Order  Line 

800-334-0868 

InNC 
919-275-9809 


TAXAID 


TAX  AID 


FOR 
COMMODORE  64 


and  VIC    20 


TM 


USE  TAXAID   to  prepare 

YOUR   INCOME   TAX  RETURN 

Developed  by  an  experienced  accounting  firm.  TaxAid  is 
accurate,  easy  to  use.  and  comes  with  a  detailed  manual.  Your  tax 
data  is  permanently  stored  on  tape  or  disk.  The  cost  is  tax 
deductible  and  yearly  updates  are  available. 


TaxAid  I 

For 
Unexpanded  VIC  20 

$19.95 


TaxAid  U        TaxAid  III 


For 
VIC  20  with  16K 

$24.95 


For 
Commodore  64 

$24.95 


Prices  above  are  for  cassette;  add  S5.0Q  for  disk  version. 


NORTHLAND    ACCOUNTING,  INC. 

606-A   Second  Ave. 
Two  Harbors,  MN    55616 

(218)  834-5012 


WS4 


TAXAID 


TAXAID 


TAXAID 


TAXAID  IS  A  TRADEMARK  OF  NORTHLAND  ACCOUNTING,  INC 

VIC  20  &  COMMODORE  64  ARE  TRADEMARKS  OF  COMMODORE  ELECTRONICS.  LTD. 
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HOTWARE 

A  Look  At  This  Month's  Best  Sellers 
And  The  Software  Industry 


Kathy  Yakal,  Editorial  Assistant 


This 
Month 


Last 
Month 


This 
Month 


Last 
Month 


Commodore  64  Entertainment 

1  Temple  Of  Apshai  (Epyx)  2 

2  jumpman  (Epyx)  1 

3  Frogger  (Sierra  On-Line)  3 

4  Choplifter  (Brriderbund)  5 

5  Beach-Head  (Access)  - 

6  Neutral  Zone  (Access)  7 

7  Fort  Apocah/pae  (Synapse)  4 

8  Gridrunner  (HesWare)  6 

9  £  ncha  1 1 1  er  ( 1  n  f o  co  m } 

10  refeng«tnf(AvaIonHill)  9 

Commodore  64 

Home/Business/Utility 

1  WordPro  3  Plu$t64  With  SpellRight 
(Professional)*  1 

2  Quick  Brown  Fox  (Quick  Brown  Fox)  2 

3  Paper  Clip  (Batteries  Included)  6 

4  Management  Systems  64  (Entech)  8 

5  Electron  ic  Checkbook  {Tim  e works) 

6  Money  Manager  (Ti meworks)  7 

7  Date  Base  64  (Entech)  9 

8  Delphi'sOracle  (Batteries  Included)  4 

9  Data  Manager  (Time-works) 

10  HES  A-frm  (HesWare)  10 

Commodore  64  Educational 


1  Dungeons  of  the  Algebra  Dragons 
(Ti  meworks) 

2  Pacemaker  (Spin na ke r) 

3  Spellbound  (Time works) 

4  Delta  Drawing  (Spinnaker) 

5  Studio  64  (Entech) 

6  Primary  Math  Tutor  (Comm*Data) 

7  Pipes  (Creative  Software) 

8  Up  Fo  r  G  rabs  ( S  p  i  n  n  a  ker) 


3 
6 

7 
5 


VIC-20  Entertainment 

1  Shamns  (HesWare)  2 

2  Choplifter  (Creative)  4 

3  Gridrunner  (HesWare)  1 

4  Temple  of  Apshai  (Epyx)  3 

5  Crush,  Crumble  and  Chomp  (Epyx)  5 

6  Protector  (HesWare) 

7  Attack  of  the  Mutant  Camels 
(HesWare)  7 

VIC-20  Home/Business/Utility 

1  Quick  Brawn  Fox  (Quick  Brown  Fox)  1 

2  HES  Writer  (HesWare) 

3  Household  Finance 

(Creative  Software)  3 

4  TOTLTime  Manager  (TOIL)  5 

5  TOTL  Text  (TOTL)  6 

6  HES  Mon  (HesWare)  4 

VIC-20  Educational 

1  Touch  Typing  Tu  t or  (Taylormade)  1 

2  Primary  Math  Tutor  (Comm*Daia)  5 

3  Square  Pairs  (Scholastic) 

4  Word  Search  (T&F)  3 


*Word  Pro  3  Plus/64  was  written  by  Steve 
Punter.  SpellRight  was  written  by  Joe  Spatfora  and 
Dwight  Huff.  The  two  programs  can  be  purchased 
separately  or  as  a  package. 
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STRUGGLED  BY  BAD  SOFTWARE? 


The  professional  wardpracassor  with 

more  than  80  functions  Ilka  multi-color 

selection,  up  to  120  columns/line  without  additional 

hardware,  find  &  replace,  enhanced  btockhandllng,  direct -access 

to  SM-ADREVA-fifes,  and  all  the  other  usual  features 

Jill  ADR  EVA  64 

Kfaur  personal  professional  addrass-file-systom.  Up  to  @20  addresses  per  disc 
In  direct  access.  Including  E  extra  lines  for  individual  text/record. 
Totally  menue-drtven.  Powerful  editing  and  back-up  facilities.  j"'m""uJ?Tni' 
Several  hardcopy  features.  '  oKV<  Sou  , 

JlllKIT64 

The  famous  programming  tool  with  powerful  basic  attentions  like  merge,  find, 
renumber,  dump,  trace,  enhanced  floppy-monitor  (disc-doctor)  and  high 
efficient  mechlne-language-monltor  with  built-in  assembler,  disassembler, 
trace  and  lots  of  more  helpful  features.  Really  a  golden  tooll       ^^^*"\ 

OTUUrS&O 


JIIIISM64 


This  index -sequential  file  manager  gives  you  a  new  dimension  on  direct  access 
files.  Up  to  40  keys,  various  length  for  each  record  and  up  to  to  files  can  be  handled 
at  the  same  time  by  this  sophisticated  module.  Mow  could  your  programs  survive 
without  SM-ISM?  ^-aHL 

ONV-VS60 


PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW! 


SM  SOFTWARE  INC. 
262  Bethlehem  Pike 
Col  mar.  PA  IS  31 5 


SOFTWARE  MADE  IN  MUNICH 


Dealer  Inquiries  invited. 


Commodore  64  owners  are  buying  more  home 
applications  software  than  games,  and  VIC-20 
owners  are  moving  in  that  direction,  too.  This 
month  we'll  look  at  some  home  applications 
products  which  are  doing  well,  some  which 
are  not,  and  a  few  you  can  expect  to  see  in  the 
near  future. 


As  the  home  computer  movement  gathers 
momentum,  it's  important  for  people  in  the  in- 
dustry to  know  why  consumers  are  buying  com- 
puters. Hundreds  of  surveys  have  been  conducted 
by  market  research  firms,  hardware  and  software 
manufacturers,  and  computer  publications. 
Though  the  results  vary,  some  general  trends 
have  emerged. 

•  Before  purchasing  a  computer,  many  people 
claim  that  they  want  or  need  a  home  computer 
for  educational  purposes,  and  to  simplify  record 
keeping.  Playing  videogames  is  often  low  on  their 
list  of  priorities. 

•  After  buying  a  computer,  the  first  type  of 
software  actually  purchased  is,  in  many  cases, 
games. 

•  A  few  weeks  or  months  down  the  road,  the 
computer  owner  starts  searching  for  practical 
applications  other  than  entertainment. 

Though  this  is  not  true  for  everyone,  this 
kind  of  pattern  emerges  in  the  software  sales  we 
have  tracked  in  HOTWARE.  Last  spring,  when 
the  Commodore  64  was  fairly  new  to  the  market, 
and  the  VIC-20's  price  was  dropping  rapidly,  the 
type  of  software  that  sold  best  was  games.  As 
demand  increased  and  more  home  business  soft- 
ware became  available,  it  began  to  outdistance 
games  both  in  unit  sales  and  in  numbers  of  pro- 
grams being  published. 

Granted,  the  Commodore  64  is  seen  as  more 
suitable  than  the  VIC-20  as  a  business  computer, 
due  to  its  greater  amount  of  memory.  But  the 
increase  in  availability  of  home  and  business  ap- 
plications cannot  be  traced  solely  to  the  64.  Equi- 
valent software  for  the  VIC-20  is  also  starting  to 
catch  up,  although  VIC-20  games  are  still  selling 
in  greater  volume. 

Identifying  The  Leaders 

If  we  go  back  to  the  first  HOTWARE  list  in  the 
August  1983  issue  of  COMPUTED  GAZETTE,  we  see 
several  types  of  home/business  software  repre- 
sented. For  the  Commodore  64,  it  looked  like 
this: 

1.  HES  Writer  (HesWare) 

2.  Calc  Result  (Handic) 

3.  Word  Pro  3  Plus/64  (Professional) 

4.  HES  Man  (HesWare) 

5.  TOTL  Text  (TOTL  Software) 

6.  TOTL  Label  (TOTL  Software) 
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Three  word  processing  programs  appeared 
here:  HES  Writer,  Word  Pro  3  Plus/64,  and  TOTL 
Text.  Many  more  word  processing  packages  have 
been  introduced  since  that  time,  and  word  proc- 
essing continues  to  be  one  of  the  most  popular 
home  applications  for  personal  computers. 

Electronic  spreadsheets  do  not  seem  to  be  as 
popular  as  other  types  of  business  software,  at 
least  among  Commodore  owners.  Calc  Result  leads 
the  field  of  the  few  available. 

HES  Mon,  a  machine  language  monitor,  and 
TOTL  Label,  a  mailing  list  program,  also  appeared 
on  the  first  HOTWARE  list. 

New  Products  Join  The  List 

Since  we  first  published  that  list,  several  new 
products  have  entered  the  home  applications 
market. 

Data  bases.  These  electronic  filing  systems 
allow  you  to  enter  records,  sort  them,  and  print 
out  specialized  reports.  (See  "The  Data  Base  As  A 
Home  Information  Center"  elsewhere  in  this 
issue.)  Data  Manager,  byTimeworks,  and  Delphi's 
Oracle,  by  Batteries  Included,  are  examples.  Data 
base  software  is  beginning  to  appear  almost  as 
often  as  word  processors  on  our  HOTWARE  list. 

Home  finance  software.  Though  some  of  the 
personal  financial  records  that  you  have  to  keep 
may  be  more  easily  done  with  pencil  and  paper, 
many  can  be  simplified  with  your  computer. 
Personal  Finance  Assistant,  by  Rainbow,  and  House- 
hold Finance,  by  Creative  Software,  have  been  best 
sellers. 

Other  home  applications  exist,  but  don't  yet 
have  as  much  software  support  as  word  proc- 
essing, data  management,  and  personal  finance 
record  keeping.  They  include  time  management, 
inventory  control,  and  checkbook  balancing.  Soft- 
ware is  also  available  to  help  figure  out  income 
taxes  and  keep  track  of  stock  portfolios.  You  may 
see  more  of  these  kinds  of  specialized  applications 
as  the  software  market  continues  to  mature. 

A  Question  CM  Suitability 

Are  there  home  applications  that  do  not  translate 
well  to  computers?  Yes,  says  Douglas  Adams, 
president  of  Orbyte  Software.  "There  are  some 
things  that  you  can  do  just  as  quickly  and  easily 
by  hand,"  he  says.  "Take  a  recipe  file,  for  ex- 
ample.... I  don't  know  how  useful  a  computer 
can  be  in  the  kitchen  at  this  time." 

Adams  believes  the  Commodore  64  is  capable 
of  handling  more  useful  home  financial  applica- 
tions, including  home  budgeting,  data  manage- 
ment, and  word  processing. 

Orbyte's  data  base  filing  system,  Com  file, 
allows  you  to  access  files  you  have  created  using 
another  program  (a  word  processor  for  example), 
even  if  that  software  was  not  published  by  Orbyte. 
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Create  your  own 
formats,  enter  your  records, 
change  layouts  and  datafields. 

Superbase  gives  you 
unrivalled  control  in  home  or 
office,  business  or  , 

professional  practice,  with  J 
a  range  of  features 
including: 


No  matter  what  your  business 
or  interest,  with  Superbase  64 
you  have  a  totally  flexible 
'record' system,  as  big  as  you 
want  it,  as  fast  as  you  need  it. 
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Precision  Software  (USA),  Inc. 

Suite  11D 

1 675  Yojfc  Avenue 
,     NEW  YORK 
1    N.Y.  10128 

Software  (212)4103418 


%^ 


£i:  commodore 


"People  are  looking  for  versatility  in  home  busi- 
ness software,"  says  Adams.  "If  I  can  enhance 
another  company's  software  with  my  own,  that's 
great." 

Know  Your  Needs  Before 
You  Buy 

"The  Commodore  64  owner  has  a  lot  of  variety  at 
this  point  in  terms  of  software  for  home  applica- 
tions," Adams  says.  "But  many  people  that  are 
buying  that  kind  of  software  don't  know  what  the 
programs  are  about.  Also,  this  software  tends  to 
be  more  expensive  than  games.  It's  very  important 
to  make  sure  the  software  you're  buying  will  truly 
meet  your  needs." 

Correction 

Two  software  manufacturers  were  incorrectly 
identified  in  January  HOTWARE.  Temple  of  Apshai 
and  Crush,  Crumble  and  Chomp  are  products  of 
Epyx  Software,  not  HesWare,  The  Commodore 
64  version  of  Chop! if ter  is  published  by  Broderbund 
Software.  The  Commodore  64  version  of  Shanuts 
is  published  by  Synapse  Software.  © 


VIC®  20  OWNERS 


Fulfill  the 
expansion  needs 
of  your  computer 
with  the 

RAM-SLOT 
MACHINE 


This  versatile  memory  and  slot  expansion  peripheral 
for  the  Commodore  Vic-20  Computer  consists  of  a 
plug-in  cartridge  with  up  to  2dKBytes  of  low  power 
CMOS  RAM  and  3  additional  expansion  slots  tor 
ROM.  RAM  and  I/O.  The  cartridge  also  includes  a  re- 
set button  (eliminates  using  the  power-on  switch) 
and  an  auto  start  ROM  selection  switch. 

WRSM-8K,  BK  RAM  +  3  Slots S  84.S0 

#RSM-16K,  16K  RAM  +  3  slots  . . . ,  $  99.50 
&RSM-24K.24K  RAM  +  3  Slots  ...    $1 19,50 

We  accept  checks,  money  order,  Visa/Mastercard.  Add 
$2.50  for  shipping,  an  additional  S2.50  lor  COD  Mich- 
igan residents  add  4%  sales  tax.  Personal  checks— 
allow  10days toclear.  '  Trademark ol Commodore 


ELECTRONICS  DESIGN  CORPORATION 

:i»X)  Varsity  Drive  .  Ann  Arbor.  Mi  48104  .  (313)973-6266 


MINI  JIN  I 


Record  Keeper' 


ALL  IN  ONE,  ONE  FOR  ALL! 


ONLY 


89 


95 


"MJ  is  a  winner... "    "Learn  MINI  JIN!  Record  Keeper  in  20  minutes"  Commander  Magazine 
"Super  duper  database  tor  VIC-20  and  COMMODORE  64"  Software  tnt'i 

Anyone  who  keeps  records  can  use  MINI  JINl "  Record  Keeper". 


Administrators 

Collectors 

Medical  persons 

Schools 

Bill  payers 

Families 

Organizations 

Store  owners 

Bookkeepers 

Hobbiesis 

Party  planners 

Students 

Bond  clippers 

Card  writers 

Post  offices 

Teams 

Checkwfiters 

Libraries 

Salespersons 

Writers 

Plug  in  a  cartridge  for  50  to  500  records  on  tape  or  disk. 

Print  labels  and  reports,  alphabetize,  do  math  and  statistics 
Dealer 

inquiries  invited  NO    EXTRA    MEMORY   REQUIRED 

Application  Templates  $14.95  each 
5-15  (ilea  with  easy  fo  use  instructions 
Organize  Hie  Hamshack'"        Classroom  planning* 
Parly  plan" 

commodore  64  am]  viC-20  ire  Woden  »r*  i  il  I   immoaof8  Bui  ne»t  M»chme 


JINl  MICRO-SYSTEMS,  Inc. 

DATABASE  MANAGEMENT  SYSTEM  DESIGN  * 

BOX 274  KINGSBRIDGE  STN.,  RIVERDALE,  NY  10463  (21 2)  796-6200 


AVAILABLE  IN  SPANISH 
MINI  JINf  Archive  Instante  - 

Coming  soorv  FRENCH.  GERMAN  and  ITALIAN 
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Look  at  these 
Features 

•  Fully  screen -oriented 

•  Horizontal  and  vertical  scrolling 

•  Terminal  mode  -  never  seen  before  on  a  word  processor 

•  Supports  Commodore  disk  and  cassette  handling 

•  Imbedded  commands 


Wordprocessor 
for 

Commodore  64 


BLIZTEXTisa 

trademark   of  ELCOMP 
PUBLISHING,   INC. 

Commodore-64   and 
VlC-20  arc  trademarks 
of  Commodore 

Business  Machine*. 


Dealer  and  Distributor 
inquiries  are  invited. 


BLI2TEXT  -  SUPER  WORDPROCESSOR 
for  the  Commodore-64 

-    ON  SALE  NOW! - 

•  Fully  screen-oriented,  up/down,  left  and  right 
scrolling  -  Upper  and  lower  case 

•  More  than  70  commands 

•  Full  10  compatibility  with  Commodore  peripherals 
Upper  and  lower  case 

•  Wor  ki  with  practical  ly  every  primer  on  the  market, 
user  definable  printer  control  commands 

•  INCLUDE   command    allows    handling    large    files 
on  up  to  4  diskettes  or  on  cassette, 

•  Build  in  terminal  software  for  electronic  mail  and 
networking.  Telecommunications  mode,  upload  and 
download,  save  on  disk  or  cassette. 

•  Dy  na  m  ic  f  o  rmani  ng ,  Imbeddedcommands 

•  Single  keystroke  for  disk  directory  and  error  channel 

•  Program  comes  on  disk  or  cassette 

•  Double  line  spacing,  left  and  right  margin  justification, 
cantering,  page  numbering,  and  practically  everything 
one  expects  from  a  good  wordprocessor, 

AVAILABLE  NOW! 
Order  #4965  SWUM 

Manual  only    (62  pages)  E29.95 

MACROFIRE  - 

Editor/Assembler  for  the  Commodore-64 
ON    SALE   NOW 
AVAILABLE   IMMEDIATELY 

One  outstanding  tool,  consisting  of  3  powerful  elements 
combined  into  one  efficient  program! 

1,1    Fully    screen -oriented     Editor    Imore   than   70 
commands} 

2.)   Very  fast  assembler  with  macro  capability 

3.)   Machine  Language  Monitor 
Assembly  can  be  started  from  the  editor.  Translates  in 
3  passes.  More  than  1.000  lab  les,  screen  or  tented /no  line 
numbers,  scrolling,  includes  disk  files. 
Practically    everything    the   serious   machine    language 
programmer  needs  every  day  I 

Manual  only  S  19.95 

Order  --.'49G3  £69.00 


THE  GREAT  BOOK  OF  GAMES,  VOL.1, 
by  Fran*  Ende 

46  programs  for  the  Commodore  64 

Introduction  to  graphics  and  sound.  How  to  program 

your   own   games.   Walking   pictures,   animation,   high 

resolution  graphics,  programming  tips  Bnd  tricks,  hints 

and  useful  subroutines  for  the  beginner  and  advanced 

programmer.  This  book  is  a  MUST  for  every  C-64  owner. 

Come  and  get  it  —  It's  yours  for  only  E  9.95 

Order  £1B2  128  pages  E9.95 

Programs  from  the  book  on  disk. 

Order  #4988  819.95 

MORE  ON  THE  SIXTYFOUR,  by  H.-C.  Wagner 
How  to  get  the  most  out  of  your  powerful  Commodore 
64.  Very  important  subroutines,  tricks  and  hints  in 
machine  language  for  your  C-64.  How  to  modify  DOS. 
How  to  connect  a  parallel  and  serial  printer.  How  to 
design  your  own  terminal  program  for  communication 
and  networking.  Dig  into  I/O  for  cassette  and  disk, 
Order=1B3  E9.95 

Programs  from  the  book  on  disk 
Order  #49B9  SI  9.95 

NEW  PRODUCTS 
Watch  out  for  our  new  books,  software  and  add-ons  to 
come  soon,  ON  SALE  NOWI  ■  ■  ORDER  TODAY! 

How  to  program  in  6502  Machine  Language  on 
your    C-64    ,  by  S.  Roberts  (Introduction) 
Ord«r-=184  B12.95 

Commodore-64  Tune-up,  Vol,  I,   by  S.  Roberts 
How  to  expand  and  customize  your  C-64. 
Order  #185  S12.95 

Small  Business  Programs  for  the  Commodore-64 

by  S.  Roberts 

How   to   make   money   using  your  C-64.  Mailing     list, 
invoice  writing,  inventory,  simple  word  processing  and 
much  more. 
Order  =  186  S12.95 


Hardware  Add-Ons: 

Parallel  printer  interface  KIT       Order  #  4990  E   19.95 
Direct  Connect  Modem  KIT        Order  #4991  Ask  f .price 
Universal  Experimenter  Board     Order  #  4970  S     9.95 
Expansion  Board,  space  for  four  ex- 
perimenter boardsiboard  only)    Order  =4992  E  29.95 


For  your  VIC-20 

Tricks  for  VICs 

Universal  Experimenter  board 


£9.95 


<?: 


ELCOMP  PUBLISHING,  INC. 

53  Rtfihock  Lane 

Pomona,  C A  61766 

USA 

Phone:  17141  823-6314 

Telex:  W  81  91 


PAYMENT:   check,  money  order,  VISA,  MASTER 
CARD,  Eurocheck,  ACCESS,  Interbank 
Prepaid  orders  add  £3.50  for  shipping  (USA) 
£5^00  handling  for  C.O.D. 

All  orders  outside  USA:  add  15  %  shipping,  Califor- 
nia 'residents  add  6.5  %  sales  tax. 


ELCOMP  Computer  (S)  Pte,  Ltd. 

69  Short  Street 

Unit  03-07.  Qoldan  Wall  Auto  Centra 

SINGAPORE  0718 

Phone:  3382623.  3388228 

Telex:  5651 6 


ELCOMP  PUBLISHING.  INC 

53  Bedrock  Lane 

Pomona,  CA  91766 

Phone:  17141  623  8314 

Tatex:  29  81  91 

Inii.W.  Hoh.nk.ir  GmbH 
Tegornsesrstr.  18 
D  81  GO  Hollkirchen 
Wei  i- Germany 
Phone:  08024/  73  31 
Telex:  62  69  73 


THE  BEGINNER'S  CORNER 


C.  REGENA 


Preventing  An  Input  Crash 


This  month  we'll  look  at  a  few  ways  to  "dummy- 
proof"  (maybe  a  better  term  is  "user-proof")  your 
programs.  In  other  words,  how  do  you  write  your 
programs  so  that  other  people  can  use  them  and 
not  get  error  messages?  How  do  you  prevent  your 
program  from  "crashing"  with  a  fatal  error? 

Any  program  that  another  person  will  use 
should  have  "user-friendliness"  built  in.  When 
you  work  on  a  program  you  have  written  yourself, 
you  know  what  constraints  the  program  has  and 
what  types  of  input  are  necessary.  If  you  want 
other  people  to  use  your  program,  they  need  to 
be  able  to  do  so  without  vour  constant  help. 

The  GET  Statement 

The  most  likely  place  for  errors  is  when  the  user 
must  enter  something — when  the  program  re- 
quires a  response.  You  may  use  either  the  GET  or 
INPUT  statement  to  put  information  into  the  com- 
puter. If  you  allow  for  yes  and  no  or  multiple- 
choice  answers  requiring  one  keystroke  instead  of 
a  typed  answer  as  the  user  input,  there  is  less 
chance  for  error.  To  detect  which  key  is  pressed, 
use  GET. 

Here  is  a  sample: 

100    PRINT    "START"  : rem   240 

200    PRINT    "TRY   AGAIN?    (Y/N)"  : rem  40 

210   GET   AS  :rem   216 

220    IF   AS="Y"    THEN    100  : rem    34 

230    IF  ASo"N"   THEN    210  :  rem  87 

Line  200  prints  the  question  asking  for  a  re- 
sponse. Line  210  scans  the  keyboard  and  gets  a 
key  when  it  is  pressed.  Line  220  says  if  the  key 
pressed  was  Y,  then  transfer  to  line  100.  Line  230 
says  if  the  key  pressed  is  not  N  (or  if  no  key  is 
pressed),  then  go  back  to  the  GET  statement, 
otherwise  continue.  You  can  see  that  only  the  Y 
or  N  keys  are  accepted. 

Here  is  another  example  offering  a  choice  of 
several  items. 
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100    PRINT    "(2    DOWN } CHOOSE : "  ; rem    127 

110    PRINT    "1    FIRST   GAME"  : rem    54 

120    PRINT    "2    SECOND    GAME"  : rem    108 

130    PRINT    "3    THIRD   GAME"  : rem   45 

140    PRINT    "4    END    P ROG RAM { DOWN } "  : rem    154 

150    GET    A$sIF    A?=""    THEN    150  : rem    79 

160    IF   A$<"1"    THEN    150  i rem    1 

170    IF   A$>"4"    THEN    150  : rem   7 
180    ON   VAL(AS)    GOTO    1000,2000,3000,4000 

: rem   150 

1000    PRINT    "FIRST   GAME"  : rem    52 

1010    GOTO    100  : rem    140 

2000    PRINT    "SECOND    GAME"  : rem    105 

2010   GOTO   100  :rem   141 

3000    PRINT    "THIRD   GAME"  : rem    41 

3010   GOTO    100  irem   142 

4000    PRINT    "END    PROG RAM (2    DOWN)"  : rem    166 

4010    END  : rem   156 

Lines  100-140  print  the  menu  screen.  You 
could  use  an  INPUT  statement  to  require  the  user 
to  choose  a  number  and  then  press  RETURN,  but 
the  user  would  need  two  keystrokes  and  could 
enter  many  characters  other  than  the  four  numbers 
and  cause  all  kinds  of  errors.  A  better  approach  is 
to  use  GET  (line  150).  Here  we're  scanning  the 
keyboard  for  a  key  A$.  If  A$=  ""  (that's  two 
double  quote  marks  with  nothing  between),  no 
key  has  been  pressed.  Lines  160  and  170  indicate 
that  the  key  pressed  must  be  from  1  to  4. 

Line  180  is  an  example  of  an  ON-GOTO  state- 
ment, which  causes  the  program  to  branch  de- 
pending on  the  value  of  AS.  Lines  160-170  check 
to  make  sure  the  key  pressed  will  be  a  number 
from  1  to  4,  so  the  ON-GOTO  statement  needs 
four  line  numbers.  If  the  value  of  A$  is  1,  the  pro- 
gram goes  to  line  1000;  2  goes  to  2000;  3  goes  to 
3000;  and  4  goes  to  4000.  An  ON-GOTO  statement 
is  often  the  most  efficient  way  to  transfer  control 
without  using  several  IF-THEN  statements.  The 
rest  of  this  sample  program  illustrates  the  program 
flow— of  course,  you  would  write  actual  program 
segments  for  the  options. 


Mirage  Concepts  stands  apart 

because  our  customers 

don't  stand  alone! 

Mirage  Software  For  Commodore  64™. 

At  Mirage  Concepts,  we  stand  beside  you  all  the 
way.  We  supply  detailed  information  on  what  each 
program  will  do,  and  help  you  determine  whether 
or  not  it  will  meet  your  need.  Your  purchase  of  a 
quality  Mirage  Concepts  program  includes  a  manual 
which  not  only  lists  instructions,  but  it  also  teaches 
you  how  to  use  it.  For         1^T^^^;:^, 
answers  to  your  special        L^flbifnJS 
questions,  technical  support 
personnel  are  standing-by  on 
a  toll-free  basis. 

WORD  PROCESSOR,  S89.95 


■  40/80  Columns  Without  Additional  Hardware 

•  100%  Machine  Language  •  Over  70  Commands 

•  Includes  Spelling  Checker  •  Interfaces  to  Database 

DATABASE  MANAGER,  $89.95 

•  100%  Machine  Language  •  Free  Form  Design  •  Sort 
On  Any  Field  •  Calculated  Fields  •  Interfaces  to  W.P. 

•  Record  Size  =  2,000  Characters 


ADVANCED  REPORT  GENERATOR,  $49. 95 

•  Companion  to  Database  •  Totals  and  Subtotals  •  Field 
Matching  •  Expanded  Reports  •  Sorting  (Up  &  Down) 

•  Calculated  Fields 

For  Brochures,  Support  and  Information,  Call, 
(800)  641-1441  o5qS...(800)  641-1442 


mRAGE  corcepcx  inc. 

2519  W.  Shaw  Ave.,  #106  •  Fresno,  CA  93711 

TM~  Commodore  64  is  a  Registered  Trade  Mark  of  Commodore  Electronics,  Ltd 


Freezing  The  Program 

Another  use  for  GET  is  to  "freeze"  the  program 
as  long  as  the  user  wishes.  For  example,  perhaps 
you  have  an  instruction  screen.  If  the  user  has 
seen  the  program  before,  he  or  she  may  wish  to 
skip  over  the  instruction  screen  quickly  and  not 
have  to  wait  a  certain  amount  oi  time.  A  first-time 
user  may  need  plenty  of  time  to  read  the  screen. 
A  GET  loop  can  freeze  the  screen  until  the  user 
presses  a  certain  key.  Another  use  may  be  to  hold 
a  graphics  screen  until  the  user  is  ready  to  go  on. 
Here  is  a  sain  pie: 

100  PRINT  "PRINT  INSTRUCTIONS  HERE." 

:rem  246 
110  PRINT  "{DOWN} PRESS  Fl  TO  CONTINUE." 

: rem  174 
120  GET  A$  :rem  216 

130  IF  A?o"{Fl)"  THEN  120        :  rem  141 
140  PRINT  "{DOWN} PROGRAM  WOULD  CONTINUE." 

:rem  173 
150  END  :rem  109 

To  type  line  130,  press  the  f  1  key  (the  top 
function  key)  between  the  quote  marks.  You  will 
see  a  printed  symbol.  Line  120  detects  the  key 
pressed.  Line  130  determines  that  if  the  key 
pressed  is  not  the  fl  key,  the  program  loops  back 
to  line  120.  The  program  will  not  continue  until  fl 
is  pressed. 

If  you  are  writing  a  game  program,  you  can 
use  GET  to  detect  the  function  keys  or  arrow  keys, 
then  branch  appropriately. 

The  INPUT  Statement 

INPUT  is  unavoidable  in  many  cases.  The  INPUT 
statement  may  ask  for  either  a  number  or  a  string. 
You  can  use  a  "prompt"  with  INPUT  so  the  user 
knows  exactly  what  to  enter.  PRINT  a  message 
before  the  INPUT  value.  It  is  also  wise  to  ask  for 
only  one  item  at  a  time. 

200  INPUT  "NAME  AND  ADDKESS";N$,AS 

may  be  more  difficult  to  use  than  the  following 
series  of  questions: 

200  INPUT    "LAST   NAME";L$  srem   102 

210  INPUT    "FIRST    NAME";F$  : rem    181 

220  INPUT    "STREET   ADDRESS"; A?  : rem   229 

230  INPUT    "CITY";CS  : rem  68 

240  INPUT    "STATE" ;S?  :rem    157 

250  INPUT    "ZIP    CODE";Z  : rem    14 

This  program  asks  for  exactly  what  is  needed, 
one  entry  at  a  time.  The  first  example  may  be  un- 
clear as  to  how  data  should  be  entered. 

In  more  technical  programs,  you  may  assume 
some  knowledge  on  the  part  of  the  user  in  in- 
putting values  for  calculations.  However,  to  avoid 
a  fatal  program  crash,  you  may  wish  to  check 
limits  of  numbers  entered.  Problems  could  arise 
with  very  large  numbers,  negative  numbers,  and 
zero  (especially  if  fractions  are  involved  or  if  there 
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is  a  possible  division  by  zero). 

The  following  program  for  parallel  resistance 
illustrates  how  input  values  can  be  tested.  First 
the  user  is  asked  how  many  resistors  there  are  in 
the  calculation  (only  three  are  shown,  but  a  num- 
ber up  to  nine  may  be  chosen).  The  GET  function 
is  used  since  the  answer  is  one  digit.  Line  150 
also  makes  sure  the  key  pressed  is  a  number 
from  2  to  9. 

The  formula  for  total  resistance  of  several 
resistors  in  parallel  is 

J_  =  JL  +  1  +  J_... 
R,       R,       R:       R3 

Since  the  equation  involves  fractions,  we  need 
to  be  careful  of  a  division  by  zero.  Line  200  makes 
sure  that  each  resistance  entered  is  greater  than 
zero. 

At  the  end  of  the  program  the  user  is  given 
the  option  to  try  another  problem  or  end  the  pro- 
gram. Again,  the  GET  function  is  used  to  see 
whether  the  user  presses  1  or  2,  and  all  other  keys 
pressed  are  ignored. 

10  REM  FOR  VIC  DELETE  LINE  20      : rem  75 
20  POKE  53281,1  srem  241 

30  PRINT  "{CLR}[BLK]  PARALLEL  RESISTANCE 

{DOWN}"  srem  166 

40  PRINT  "[2  SPACES}  |2  Y30rJ6  Y|0 

|6  Yl£^2  Y3"  srem  18 

50  PRINT  "(4  SPACES}gGg{6  SPACESjEGg 

[6  SPACES}  EG3"  srem  37 

60  FOR  I=1T03  :rem  218 

70  PRINT  "{4  SPACES }M[ 6  SHIFT-SPACE }M 

{6  SHIFT-SPACE  3 M"  : rem  31 

80  PRINT  "{4  SPACES )N[6  SHIFT-SPACE }N 

(6  SHIFT-SPACE )N"  : rem  35 

90  PRINT  "{3  SPACES }N( 6  SHIFT-SPACE }N 

(6  SHIFT-SPACE}N"  : rem  36 

100  PRINT" (3  SPACES }M{ 6  SHIFT-SPACE}M 

[6  SHIFT-SPACE }M"  : rem  73 

110  NEXT  I  :rem  26 

120  PRINT  "(4  SPACES )§G3{ 6  SHIFT-SPACE] 

EG§(6  SHIFT-SPACE }EG3"    srem  211 
130  PRINT" {2  SPACES} g2  P3LE6  P|L 

g6  P3LB2  P§"  :rem  185 

140  PRINT  "{DOWN} HOW  MANY  RESISTORS?  "; 

: rem  226 
150  GETA$sIF(A$<"2")+(A$>"9")THEN150 

-.rem  109 
160  PRINTA$:N=VAL(A$) :T=0  : rem  226 
170  FOR  I=1T0N  :rem  39 

180  PRINT"R"+RIGHT$(STR$(I) , 1)+"  ="; 

srem  213 
190  INPUT  R  :rem  124 

200  IF  R>0  THEN  220  srem  164 

210  PRINT" (2  SPACESjR  MUST  BE  GREATER": PR 
INT" {2  SPACES} THAN  ZERO . {DOWN} " :GOT01 
80  : rem  81 

2  20  T=T+1/R  srem  86 

230  NEXT  :rem  212 

240  PRINT  "TOTAL  RESISTANCE  ="     srem  25 
250  PRINT  1/T  srem  216 

260  PRINT  "{2  DOWN} {GRN} PRESS : "   srem  112 

270  PRINT  "  1  ANOTHER  PROBLEM"    : rem  189 
280  PRINT  "  2  END  PROGRAM"         : rem  140 


Food  for  Thought 

Real  computing  at  appetizing  prices. 


Inventory  64:"  An  easy-to-use 
menu-driven  program  that  lets  you 

track  complete  and  complex  invento' 
ries,  Pinpoint  locations,  vendors, 
units  of  measure.  Update  prices,  re- 
orders, sales,  entire  stocks,  A  power- 
ful tool  for  your  home  computer  at 
only  $29.95*.  on  disk 


64  PAK:"  A  self-teaching  sampler 

package  of  1 0  rrenu-d  riven  prog  rams. 
Ideal  as  an  introduction  to  computing. 
Or  compute  your  life  expectancy, 
your  mortgage  payments,  even  learn 
the  language  of  the  deaf,  plus  a  lot 
more.  Only  $24.95*.  on  disk. 


PractlFlle.™  A  fully  professional  file 
manager  for  your  Commodore. 
PractiFile  can  handle  mailing  list 
entries  by  the  Ihousands.  You  can 
change  records,  numbers,  methods 
ol  filing,  and  a  greal  deal  more.  Plus. 
it's  easy  to  use  Only  $54.95",  on  disk 


PractiCalc-"  64.  The  most  powerful 
spreadsheet  available  tot  a  home 
computer-at  the  least  cosl.  Track 

investments,  inventories,  expenses. 
Project  profits.  Make  charts.  Keep 
mailing  lists.  Sort  alphabetically  or 
numerically,  instantly.  An  incredible 
value  at  $49.95*.  tape;  $54.95',  disk. 


Total  Health.'"  The  fun  way  to  keep 
fit.  Stay  on  top  of  your  daily  intake 
and  outgo  ol  calories.  Balance  your 
daily  diet  and  graph  your  progress - 
all  tailor-made  to  your  body,  past, 
present,  and  future.  It's  like  having  a 
health  spa  in  your  home  tof  only 
$24.95',  on  disk. 


Now  you  can  do  real,  honest-to-goodness  computing  at  computer-game  prices.  Computer  Software 
Associates  brings  you  hard-working  software  that  makes  your  work  easy.  (While  it's  easy  on  your  budget.) 
All  programs  are  easy  to  work  with  right  on  the  screen,  from  self-teaching  instant  software  that  tracks  your 
vital  statistics  to  potent  programs  to  track  inventories  and  profits.  ^-^  fVMUIDf  I TFD 

Of  course,  if  it's  games  you  want,  we've  got  them  too.  But  if  you're  look-  ^5^  feSs£2«»» 
ing  for  home  computer  power  with  real  brainpower,  look  no  more.  Now       ^J^  SOFTWARE 
you  can  play  for  keeps.  ^W  ASSOCIATES, INC. 

Exclusively  distributed  by  Micro  Software  International,  Inc.  •  The  Slk  Mill.  44  Oak  St.,  Newton  Upper  Falls.  MA  02164  -{617)527-7510 
"Prices  are  suggested  retail,  aclual  retail  prices  may  vary  J  I9B4  Computer  Software  Associates.  Inc.  Commodore  64",  trademark  of  Commodore  Business  Machines.  Inc 


Your  "ONE  STOP"  Source 
for  Computer  Books 

loucinfilyon  PACE  forONE  STOP  ihopomelor 
all  your  Micro  Computer  neactl  We  h«vo  thomandl 
of  boofcm.  prc^rBmi  and  ftec«»ort«— ccmrnny  all 
the  major  brand!  of  computed  — even  60  different 
magaimea!  The  ONE  STOP  fflandly  alora. 


pace\ 


VISA/MASTERCARD  ORDERS  CALL  (31 2)  595-3860 


BOOKS  ON  THE  C-64"  BOOKS  ON  THE  VIC-20 


SI  2. 95 
414  95 
SI  9,95 


UCOMPUTEIslslBOOKOFC-64 
4105-000020  264  Pus 
DGAMESC-641  PLAY 
4S80000121    2/0P<J3 
D  KIDS  ATHEC64 
4560-OOO172  210Pgs 
;  :  GRAPHICS  A  SOUND  PROG 
4800000640  240Pqs  J14.95 

□  SPRITE  GRAPHICS  FOR  C-64 
4690-838136  224  Pqs  $15  95 

D  USINGC-64  IN  THE  HOME 
4690-940072   200  Pus  $10.95 

M  PROGRAMMER'S  REE  GUIDE 
4760-022056  4H(>P[jr-  $19.95 

[]  HOW  TO  USE  THE  C-64 
4250-000133    124P()S  S    3.85 

I)  COMPUTER  PLAYGROUND  By 
M  J  Winter  Workbook  for  children 
4560-000108   129Pgs  $    9  95 

D  ELEMENTARY  C-64  Wm  B  Sanders 
Considered  among  best  "Ho*-To"s" 
4560-000034  232Pqs  S14.95 

0  EASY  GUIDE  TO  YOUR  C-64  JOS 
Kascmer  Jargon  liee  leu!  on  practical 
tjppnstion—  word  prrxtrss  to  math  calc 
4795-000126    KiOPys  $    7,95 

;  i  c-64  basic  handbook  Doughs 

Hergerl  Dicnonaryslyre  handbook, 
4795-000116    1/0PtJ5  $    9,95 

D  More  Than  32  BASIC  PROGRAMS 
Practical,  educational  and  gEtmes 
425O-0OO1BO  350  Pgs  $29.95 

I!  COMPUTERS  lit  BOOK  OF  C-64 
SOUND  AND  GRAPHICS   HtW 
4105  000021    DurSonn         $12,95 

HCOMPUTEtl  1st  BOOK  OF  C-64 

GAMES    WW 

4105000034   Our.  Soon         $12.95 

1  I  COMPUTE!!  REFERENCE  GUIDE 
TOC-64tjRAPHICS    NIW 

4105000029  OueSoon       SI 2.95 

I  )  CREATING  ARCADE  GAMES  WW 
4105-000036  DlieSoon         S12.95 
a  GAMES  FOR  KIOS  NCW 
4105000037  Due  Soon         $12.95 

D  C-64:  GETTING  MOST  FROM  IT 
4690-000380  303  Pgs  $14.95 

D  PROGRAM  YOUR  C-64  IN  BASIC 
4690-729723  $    9.95 


COMPUTER    DUST    COVERS 


For  COMMODORE 

.    -1  1  OS-005600   -  .:  ■  :  $10.98 

D  41  08-005700  Old  Data  $4,98 

[J41OB-O0571O  New  Data  $  4.98 

[14108-005720  1/01  Man  $15,98 

D  41  08005800    15  If)  Prnl  $10.98 

[]  41  08-005820   1625  Pmt  $10.98 

O  41  08-005860   1540/41  $    9  98 


D  GETTING  ACQUAINTED  WITH 
YOUR  VIC-20 

4 196000028    II6Paa  S    9.95 

GVfC-20  USER  GUIDE 
4665-OOO086   388  PflJ  S  15.95 

CHOI  PROGRAMMING  TIPS  AND 
TRICKS  (VIC  4  C-64) 
4080-000030   >2HPgs  $    8.95 

□  VIC  BASIC  -  User  Friendly  Guide 
go  Graphics,  Colore  Sound 

4690-008377  J60Pgs  $14.95 

n  YOUR  1st  VIC-20  PROGRAM 
4795000129    It)?  Pgs  $    9,95 

H  VIC  GAMES 

4410-001060    l87Pfli  $13,95 

II  PROGRAMMER'S  NOTEBOOK 
476O-022OB9  253  Pa*  $14,95 

"  50  EASY-TO  RUN  GAMES 
4760-022188    1 22 Pas  $    5.95 

C  COMPUTERS  FOR  KIOS 
419B-0O0O42    72Pgs  $    5.95 

D  COMPUTER  PLAYGROUND 
4560000108   128Pgs  $    9.95 

□  GAMES  VIC-SOs  PLAY 

4560  0001  IB  270  Pys  $14.95 

P/OUICK  REFERENCE  GUIDE 
4925088248  S    2.95 

nVIC-20FORKIDS0FALLAGES 
4925-088233    UiOPgs  $10.95 

D  MASTERING  THE  VIC-20:  BASIC 
LANGUAGE  PROGRAMMING 
4925-088892  200  Pgs  $14.95 

D  CREATING  ARCADEGAMESNrHV 
41050OO0S5  Due  Soon         S12.9S 

□  GAMES  FOR  KIDS    HtW 
4105000035  OotSOOn         $12.95 
P  THINGS  TO  DO  IN  4K  OR  LESS 
4105-000038  Dun  Soon         St2.S5 

D  50-EASY-TO-RUN  GAMES 
4760022188  S10.95 

D  VIC  GRAPHICS 
4410-001057    187  Pgs  $13.95 

a  VIC  REVEALED  Assembly  Langu- 
age programming  &  iristde  VIC  hardware 
4410-001058  267Pgs  $14.95 

D  VIC  GAMES 

4410-001080   !B7Pgs  $13.95 

O  KIDSS  THE  VIC 
4560-000058  215Pgs  $19.95 

D  THE  ELEMENTAHY  VIC 
4580-000118  256  Pgs  $14.95 

D  UNDERSTANDING  THE  VIC-20 
4B4O-00OO03    I  33  Pgs  $11.95 

D  ZAP!  POWI  BOOM!  Arcade  Games, 
4690-009538    156  Pgs  $12.95 

DHOW  TO  USE  THE  VIC-20 
4250-000134  $    3.95 


NOW.  .  .PACE  ha  s  I  wo  stores'  Our  mam  slore.  a!  345  East  Irving  Park  Road  in 
Wood  Dale  iusI  West  ol  O'Hare  Airport,  (phone  31  2-595-38601.  and  our  new 
locator  at  1  FIRST  NATiONai  Pi  AZA  m  Downtown  Chcaga  (phone  31 2-3/2-24641 


USE  THIS  AD  AS  YOUR  HANDY  ORDER  FORM 


TO  ORDER:  Jusl  check  ihe  block  hy  the  title  o<  trmtxx*  »  (cm  you  wishtoordef 
Send  thisad.  along  with  your  NAME.  STREET  AOOHESS  CITY.  STATE  and  ZIP 
CODE  and  your  Certified  Check,  Money  Order  Personal  Check  (-snow  2  weeks 
Id  dead,  or  your  VISA  or  MASTERCARD  NUMBER.  E  XPIRATION  DATE  and 
INTERBANK  NUMBER  iMin.mum  Charge  is  525  001  to 


I 


DEPARTMENT:   C    C 
LOCK  BOX  328,  BE  NSENVILLE,  IL  601  OB 


Phone:   (312)  595-3860 


Please  add  S2  50  Postage  and  Handling  on  ALL  Orders  Illinois  Residenis  Add 
6%  la*.  Foregn  Orders  Add  l[K  IMin  SSQOl  Prrar.  &  awulaljMy  suHjn'1  to  chjuje 


PLEASE  SEND  ME  ACOMPLETE  BOOK  &  SOFTWARE  LISTING  FDR: 

n  APPLE-    D  ATARI-    D  COMMODORE-    □  IBM    D  RADIO  SHACK" 
□  TEXAS  INSTRUMENTS'   D  TIMEX7SINCLAIR"   D  OTHER  , 


290    GETA.$:IF   AS=" 1 "THEN30 
300    IF   A$o"2"THEN    290 
310    PRINT" [BLU} ECLR}": END 


: rem  82 
: rem  65 
: rem  40 


One  more  program  is  presented  here  to  illus- 
trate the  uses  of  GET  and  INPUT.  "Averages"  is 
an  educational  program  that  instructs  the  user  on 
how  to  calculate  the  average  of  several  numbers, 
then  random  problems  are  given  with  multiple- 
choice  answers. 

This  program  uses  DEF  FNF(X)  to  define  a 
function  that  will  choose  a  random  integer  from  1 
to  X.  This  saves  typing  the  function  and  saves 
memory  when  a  random  integer  is  needed  later 
in  the  program.  The  GET  function  is  used  after 
menu  screens  are  printed  and  at  various  places  in 
the  program  to  wait  before  continuing  the  pro- 
gram. INPUT  is  used  in  the  sample  problems  to 
receive  a  numeric  answer.  GET  is  used  to  receive 
the  answer  for  multiple-choice  questions.  Random 
numbers  are  used  in  the  problems  and  also  in 
determining  which  of  three  problems  will  be 
printed.  Lines  78-86  in  the  VIC  version  and  900- 
1050  in  the  64  version  determine  the  multiple- 
choice  answers. 

The  VIC  and  64  versions  are  essentially  the 
same,  but  have  different  line  numbers  (and  com- 
bined lines  in  the  VIC  version).  In  the  64  version, 
the  first  line  (POKE  53281,1)  changes  to  blue 
printing  on  a  white  screen.  The  VIC  version  com- 
bines lines  to  save  memory,  but  if  you  have  ques- 
tions about  program  flow,  the  64  version  may  be 
easier  to  read. 

When  you  are  typing  the  VIC  version,  leave 
out  all  unnecessary  spaces.  If  you  prefer  to  save 
typing  time,  you  may  have  a  copy  of  the  program 
by  sending  me  $3,  a  blank  cassette,  and  a  self- 
addressed,  stamped  envelope.  Please  be  sure  to 
specify  the  name  of  the  program  and  which  com- 
puter version.  Mail  to: 

C,  Regena 

P.O.  Box  1502 

Cedar  City,  UT  84720 

See  program  listings  on  page  170.  Q 


IT'S  TAX  TIME 

DO  YOUR  INCOME  TAX  THE  EASY  WAY 

Just  LOAD  and  RUN.  The  program  will  prompt  you  (or  all  INPUTS, 
then  compute  your  taxes  or  refund.  It  will  optionally  print  out  directly 
on  the  proper  form  or  LIST  on  the  screen  by  form  numbers.  The  pro- 
gram is  thoroughly  tested  and  documented.  Instruction  book  forms 
are  included. 

SAVE  YOURSELF  TIME  AND  MONEY.  ORDER  TODAY 
104QA  with  Schedule  1  for  V-2Q(8K)orC-64  S20 

1040  wi1hSehedulesA&BtorV-20(16K)  or  C-64  .  S30 

1040  with  Schedules  A  &  B  ■*■  1525  Printout  for  V-20(24K)or  C-64        S35 

1040  with  Schedules  A,  B.  C  &  SE  i- 1525  Printoul  for  C-64         $45 

AH  of  the  above  on  one  lape  or  disk £55 

Specify  Vic-20  or  C-64,  specify  (T)  lape  or  (D)disk. 

Send  check  or  money  order  lo: 

L.J.  Fischer,  2797  Modford  Ave  ,  Redwood  City,  CA  9406) 

CA  rasidonls  add  BJjj>  sales  tan. 
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Write  For  FREE  Catalog 


VISA' 


Call  your  order  in  and 
gat  a  FREE  program 


NEW 


Call  your  order  in  and 
gel  a  FREE  program 


Write  For  FREE  Catalog 


(602)  855-3357 


VIC  SOFTWARE  CBM  64 


(602)  855-3357 


»N    » 


PARATROOPER 


MOW 
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4 


ALIEN 
INVASION 


7    ■="■'  I        ">• 


SNAKE  OUT 


Software 

from 

ComputerMat 

will  turn 

your 

VIC  or  64 

into  a 

home 

arcade. 


VARG 


We  have 

more 

games 

and 

programs 

than 

you  can 

shake  a 

joystick  at! 


PROGRAMMERS 

CONTEST 

Send  Us 

Your 

Best 
VIC  or  64 
Program 

Winners  will 

receive  royalties 

plus  $1,000 

in  prizes. 


POP  TOP 


MUSIC  MAKER 
64 


^JL^oc 


SHOGUN  64-VIC 


I 


E*N 


i\»i 


64 
ARCADE  PAK 


STOMPERS  -  64 


CHRISTMAS 
SPECIALS 

Buy  2 

Programs  and 

Get  1  Free! 

For  every  2 

VIC  or  64 

programs  you 

buy,  we  will 

send  you  a 

coupon  tor  a 

third  program  free! 


BUG  BLAST 


SUPER  PAK  -  64 


ComputerMat  •  Box  1664  M  •  Lake  Hawasu  City,  AZ  86403    Add  S'00  *■'<"■  Shipping 


TARGET 
COMMAND 


COSMIC 
CRU2ER 


SPACE  PAK 


HEAD  ON 


MACHINE  LANGUAGE  FOR  BEGINNERS 

RICHARD  MANSFIELD,  SENIOR  EDITOR 


Double  Decker 


The  action  begins.  We've  filled  color  RAM,  drawn 
the  screen  borders,  and  set  up  some  random 
enemies.  Now  we're  ready  to  add  some  arcade 
action  to  our  all-machine-language  game.  (The 
entire  game  we've  built  so  far  is  contained  in  the 
BASIC  loader,  Programs  2  and  3.) 

The  section  to  be  constructed  this  month  will 
control  the  player,  accepting  input  from  the 
keyboard  and  moving  a  paddle  back  and  forth  on 
the  screen.  It's  so  fast  in  machine  language  (ML) 
that  a  delay  loop  has  to  be  added  so  we  can  see 
the  paddle  move.  Without  this  delay,  the  paddle 
simply  reappears  on  the  other  side  of  the  screen 
when  you  press  a  key. 

Let's  look  at  the  program  flow  of  the  64  ver- 
sion disassembly  (Program  1);  it's  functionally 
identical  to  the  VIC  version.  As  always,  the  first 
thing  to  do  is  to  set  up  some  prelim inary  informa- 
tion— the  equivalent  of  assigning  values  to  vari- 
ables in  BASIC.  At  49249,  the  first  address  in  the 
program  (or  first  line,  if  you  prefer),  we  LoaD  the 
Accumulator  with  169  and  store  it  at  251,  a  zero 
page  location.  Then,  we  do  it  again,  putting  7  into 
252.  Recall  that  the  6502  chip  looks  at  two-byte 
addresses  in  a  peculiar  way:  the  higher  one  in 
memory  (at  252)  is  going  to  be  multiplied  by  256. 
Then  the  other  one  (at  251)  is  added  to  that,  to 
give  us  the  address  we're  after.  So,  by  adding  169 
to  (7  x  256),  we  get  1961,  an  address  within  the 
screen  RAM  where  we  want  our  paddle  to  start  off. 

Printing  The  Paddle 

Notice  that  we  will  be  referring  to  this  two-byte 
address  pointer  several  times  in  the  program: 
lines  49279,  49283,  49296  and  so  on.  It  will  always 
hold  the  current  position  of  the  paddle  on  the 
screen.  Anyway,  we've  set  up  our  paddle  position 
pointer,  so  now  we  JSR  (Jump  to  SubRoutine)  at 
49345,  which  prints  the  paddle  on  the  screen 
(wherever  it's  supposed  to  be,  governed  by  what's 
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in  our  pointer  at  251).  We  load  Y  with  5,  load  A 
with  120  (the  screen  POKE  value  of  our  paddle 
symbol),  store  A  using  the  Indirect  Y  addressing 
mode,  DEY  (reduce  Y  by  one),  test  to  see  if  Y  is 
equal  to  zero  yet  (BNE),  and,  if  not,  branch  back 
to  49349,  the  start  of  our  print  paddle  subroutine's 
loop.  When  we've  POKEd  all  five  paddle  char- 
acters into  the  right  position  on  screen,  we  RTS 
(ReTurn  from  Subroutine). 

Following  that  RTS,  we  fly  back  to  49260, 
only  to  bounce  away  again  to  another  subroutine, 
our  delay.  This  is  a  do-nothing  subroutine;  it  just 
takes  up  time  by  LoaDing  the  Y  register  with  zero 
(line  49355),  counting  down  with  DEY,  until  it 
goes  from  255  down  to  zero  again  and  then  we 
RTS.  If  something  starts  with  zero  and  is  dec- 
remented (lowered  by  one,  like  the  DEY,  DEX, 
or  DEC  instructions),  it  clicks  down  to  a  255,  then 
254,  and  so  on  down.  Remember  that  zero  clicks 
down  into  255  in  these  situations;  it  doesn't  freeze 
at  zero.  We  can  find  out  when  it  hits  zero  by  using 
BNE.  BNE  always  branches  unless  the  most  recent 
action  caused  a  zero.  (Many  instructions  will  alert 
BNE  to  zero:  LDA  155  would  set  off  a  branch,  a 
BNE,  if  address  155  contained  anything  other 
than  zero.) 

Which  Key  Pressed? 

Once  finished  with  the  delay,  we  return  to  49263 
and  load  the  accumulator  with  whatever  number 
is  currently  in  address  197.  That's  a  special  address 
in  our  computers:  It  always  holds  the  value  of  the 
key  currently  being  pressed.  Try  this  in  BASIC: 

FOR  I  ~  1  TO  5000  :  ?  PEEK  (197);:  NEXT 

Then  press  some  keys.  You'll  notice  that  each 
key  has  its  own  value.  This  is  an  easy  way  to  get 
input  from  the  user.  For  our  game,  we're  just 
going  to  have  the  user  move  a  paddle  back  and 
forth  so  we  need  to  test  for  only  two  direction 
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0  —  Using  CodePro-S4 

1  —  CBM-G4  Keyboard  Review 

BASIC  Tutorial 

2  —  Introduction  to  BASIC 

3  —  BASIC  Commands 

4  —  BASIC  Statements 

5  —  BASIC  Functions 
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6  —  Keyboard  GRAPHICS 
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K  —  Keyword  Inquiry 

R  —  Run  Sample  Programs 


A  new  concept 
in  interactive  visual 
learning. 

CodePro-64™ 


N'ow  you  can  learn  to  code  in  BASIC  and 
develop  advanced  programming  skills  with 
graphics,  sprites  and  music— visually.  You 
learn  by  interacting  with  CodePro-64,  a  new 
concept  in  interactive  visual  learning. 
SEE  PROGRAM  EXECUTION 

Imagine  actually  seeing  BASIC  state- 
ments execute.  CodePro-64  guides  you 
through  structured  examples  of  BASIC  pro- 
gram segments.  You  enter  the  requested  data 
or  let  CodePro-64  do  the  typing  for  you.  (It 
will  not  let  you  make  a  mistake.) 

You  step  through  and  actually  see  the 
execution  of  sample  program  statements  by 
simply  pressing  the  space  bar.  CodePro44 
does  the  rest.  You  see  statements  with  cor- 
respondinggrapAfcs  and  variable  value 
displays. 

EXTENSIVE  TUTORIAL 

CodePrc>64's  extensive  tutorial  guides 
you  through  each  BASIC  command,  pro- 
gram statement,  and  function.  You  get  clear 
explanations.  Where  appropriate,  you  invoke 
BasicView  to  see  examples  execute  and 
watch  their  flow  charts  and  variables  change. 

By  seeing  graphic  displays  of  program  seg- 
ment execution  you  learn  by  visual  example. 
You  team  faster  and  grasp  programming 
concepts  easierwith  CodePn>64  because 
you  immediately  see  the  results  of  your  input. 

You  control  your  learning.  You  can  go 
through  the  tutorial  sequentially,  or  return  to 
the  main  menu  and  select  different  topics,  or 
use  key  words  to  select  language  elements  to 
study.  You  can  page  back  and  forth  between 
screens  within  a  topic  at  the  touch  of  a  func- 
tion key. 

Once  you  have  practiced  and  mastered  the 
BASIC  language  elements  you  move  on  to 


more  advanced  concepts.  You  learn  about 

sprite  and  music  programming. 

SPRITE  GENERATOR 
&  DEMONSTRATOR 

CodelJrcH64's  sprite  generator  lets  you 
define  your  own  sprites  on  the  screen.  You 
learn  how  to  define  sprites  and  what  data 
values  correspond  to  your  sprite  definitions. 
(You  can  then  save  your  sprite  data  toa 
diskette  file  for  use  in  your  own  programs. ) 
You  can  easily  experiment  with  different 
definitions  and  make  changes  to  imme- 
diately see  the  effects. 

We  also  help  you  learn  to  program  with 
sprites  by  givingyou  hsprite  demonstrators*) 
you  can  see  the  effect  of  changing  register 
values.  You  can  experiment  by  moving  your 
sprite  around  in  a  screen  segment,  change  its 
color  and  see  the  effects  of  your  changes.  You 
learn  by  visual  examples. 

MUSIC  GENERATOR 
&  DEMONSTRATOR 

Our  Music  Generator  and  Music  Demon- 
sfraforwill  provide  hours  of  instruction  and 
creative  enjoyment.  From  the  beginning  of 
your  instruction  you  can  compose  simple 
tunes  on  the  screen  using  the  generator. 
Once  you've  completed  a  composition  you 
can  save  the  tunema.  its  associated  SID 
parameters  to  a  diskette  file.  Our  music  sam- 


OUR  GUARANTEE 

We  guarantee  your  satisfaction.  You 
mast  be  satisfied  with  CodePro-64  for 
theCommodore-64.  Try  it  for  10  days 
and  i  f  for  any  reason  you  are  not  satisfied 
return  it  to  us  (undamaged)  for  a  full 
refund.  A'o  risk. 


pie  program  can  be  used  alone  or  incorpo- 
rated into  your  own  programs  to  read  the 
saved  music  file  and  replay  your  songs. 

Our  music  demonstrator  lets  you  experi- 
mentwhh  various  combinations  of  music 
programming  parameters  and  hear  the 
results.  All  you  do  is  enter  rows  of  SID 
parameters  on  the  screen  to  create  a  particu- 
lar sound.  Then  you  hear  each  sound  by 
playing  the  "keyboard  organ  "in  real  time  as 
you  shift  from  row  to  row  of  SID  parameters. 
By  seeing  your  input  and  hearing  the  result 
you  quickly  learn  how  to  create  new  musical 
sounds  and  special  sound  effects. 

Whether  you're  a  beginning  programmer 
or  an  experienced  professional,  Code Prr>64 
will  helpyou  improve  you  Commodore  64 
programming  skills.  We're  sure  because 
CodePro-64  was  developed  by  a  team  of  two 
professionals  with  over  25  years  of  software 
development  experience. 

CodePro-64  is  a  professional  quality  edu- 
cational program  for  the  serious  student  of 
personal  com  puting.  And  it's  fully  guaran- 
teed. Order  yours  today. 

HOW  TO  ORDER 

Order  your  copy  of  CodePro-64  today  by 
mail  or  phone.  Send  only  $59.95  plus  $3.00 
shipping  and  handling  to: 

SYSTEMS  MANAGEMENT  ASSOCIATES 

3700  Computer  Drive,  Dept.  C-l 

Raleigh,  N.C.  27609 

Available  on  diskette  only.  MasterCard/- 
VI SA accepted.  For  faster  serviceon  credit 
card  orders,  call  toll  free  14*00  SMA-RUSH. 
( 1  -S0O-762-7874,.  Dealer  inquiries  invited. 

Commodore  (V4  is  a  [rjdcmarV;  of  Comtruxkia'  business 
Machines.  Inc. 
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Program 

1 :  Paddle  Routine 

MOVE  LEFT 

49305 

INC 

251 

INITIALLY  ATI 

49307 

LDY 

#  6 

49249 

LDA 

#  169 

49309 

LDA 

#  32 

49251 

STA 

251 

49311 

STA  ( 

251  )Y 

49253 

LDA 

#  7 

49313 

LDA 

251 

49255 

STA 

252 

49315 

BNE 

49319 

49257 

JSR 

49345 

49317 
49319 

DEC 
DEC 

252 
251 

MAIN  LOO' 

49321 

JSR 

49345 

49260 

JSR 

49355 

49324 

JMP 

— ->    49260 

49263 

LDA 

197 

MOVE  RIGHT 

49265 

CMP 

#  56 

49267 

BEO 

49279 

49327 

LDY 

#  0 

49269 

CMP 

#  8 

49329 

LDA 

#  32 

49271 

BEQ 

49294 

49331 
49333 

STA  ( 
INC 

251  )Y 
251 

49273 
49275 
49277 

CMP 
BEQ 
BNE 

#  35 

49361 
49260 

49335 
49337 
49339 

BNE 
INC 
JSR 

49339 
252 
49345 

GO  LEFT? 

49342 

JMP 

>    49260 

49279 

DEC 

251 

DRAW  PADDLE 

49281 

LDY 

#  0 

49345 

LDY 

#  5 

49283 

LDA 

{  251  )Y 

49347 

LDA 

#  120 

49285 

CMP 

#  32 

49349 

STA  { 

251  )Y 

49287 

BEQ 

49305 

49351 

DEY 

49289 

INC 

251 

49352 

BNE 

49349 

49291 

JMP 

> 

49260 

49354 

PTS 

GO  RIGHT? 

DELAY 

49294 

LDY 

#  7 

49355 

LDY 

#  0 

49296 

LDA 

(  251  )Y 

49357 

DEY 

49298 

CMP 

#  32 

49358 

BNE 

49357 

49300 

BEQ 

49327 

49360 

RTS 

49302 

JMP 

> 

49260 

49361 

RTS 

keys.  Let's  use  the  1  and  3  keys,  for  left  and  right 
movement.  Try  pressing  1.  You'll  see  56's  on 
screen.  (VIC  gives  0.)  Press  3  and  you'll  get  8's. 

(VICgivesl.) 

Since  this  is  an  all-ML  game,  we'll  need  a 
way  to  get  out  of  it,  to  return  to  BASIC.  For  that, 
we'll  use  the  0  key  as  an  escape.  When  you  press 
it,  you'll  get  35  as  your  value.  So,  lines  49265 
through  49275  simply  compare  what  we  found  in 
address  197  against  56,  8,  and  35  and  hranch  to 
the  appropriate  subroutines  further  down  in  the 
program.  If  we  got  some  other  value,  line  49277 
sends  us  up  to  another  delay  and  then  another 
try  for  a  pressed  key. 

All  of  this  multiple  comparing  should  remind 
you  of  the  ON-GOTO  command  in  BASIC.  This 
is  ML's  version  of  that  common  computer  tech- 
nique fur  branching  to  several  alternative  actions. 

To  move  the  paddle  left  (the  routine  starting 
at  49279),  we've  got  to  first  check  to  see  if  we  can 
move  any  further  left.  Obviously,  we  don't  want 
to  move  the  paddle  into  the  border  of  our  screen 
and  come  popping  out  the  other  side.  So  we  DEC 
251  temporarily,  to  check  if  the  next  character  to 
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the  left  of  our  paddle  is  a  blank  (character  #32).  If 
not,  it  must  be  a  wall,  so  we're  sent  back  to  our 
get-a -keystroke  routine  at  49260. 

However,  if  we  find  a  blank,  we  can  go  ahead 
and  redraw  the  paddle  one  space  to  the  left  of  its 
current  position.  So,  at  49305,  we  INC  the  pointer 
to  restore  it  to  its  correct  value.  (Recall  that  we 
DECed  it  to  check  for  a  blank.)  Then  we  want  to 
blank  out  the  paddle  character  six  over  from  the 
current  address  {to  get  rid  of  the  rightmost  paddle 
character).  Load  Y  with  #6,  load  A  with  the  blank 
character,  #32,  and  store  A. 

These  next  four  lines  are  an  important  ML 
technique:  double  DEC.  We  need  to  lower  our 
pointer  address  by  1  because  we're  sliding  the 
whole  paddle  over  1  to  the  left  on  screen.  We 
can't  just  DEC  151  because  we  might  be  crossing 
a  page  boundary  (256)  and  need  to  also  lower  152, 
the  more  significant  byte  of  the  two-byte  pointer. 
Remember  that  we  said  LDA  would  affect  a  BNE 
instruction?  We  LDA  the  lower,  less  significant 
byte.  If  it's  a  zero,  we  "fall  through"  the  BNE  to 
address  49317  and  also  lower  252.  If  not  zero,  we 
branch  to  49319  and  just  lower  151.  Notice  that 


*ssa~ 


EUREKA! 


That's  what  we  said  when  our  new 

"invention" solved  all  our  VIC-20™  and 

Commodore-64  m  programming  problems 


We  had  a  problem.  So  we  invented 
PC-DocuMate™  to  solve  it.  The  problem  was 
how  to  quickly  master  the  VIC-20  and 
CBM-64  keyboards  and  easily  start  pro- 
gramming in  BASIC  on  our  new  personal 
computers  First  we  went  through  the 
manuals. 

INCONVENIENT  MANUALS 
The  user's  guide  was  a  nuisance  and  the 
programmer's  reference  manual  was  just 
plain  inconvenient  to  use.  We  lound  the 
control  key  combinations  conlusing  and  Ihe 
introduction  to  BASIC  to  be  loo  "basic"  tor 
our  needs.  We  needed  a  simple  solulion  to 
our  documentation  problems 

So  we  decided  to  surround  the  keyboard 
of  each  PC  with  the  information  we  wanted. 
We  decided  to  print  whatever  we  needed  on 
sturdy  plastic  templates  which  would  fit  the 
keyboard  of  either  the  VIC-20  or  Commo- 
dore 64. 

SIMPLE  SOLUTION 

This  was  the  simple  solution  to  our  prob- 
lem. Now  we  could  have  the  essential 
information  righl  at  our  fingertips. 

On  the  left  side  and  top  ol  the  templates 
we  pul  BASIC  functions,  commands,  and 
statements.  On  the  lower  left  we  used  key 
symbols  lo  remind  us  of  how  to  use  SHIFT, 
RUN /STOP,  CTRL  and  the  "Commodore" 
key.  Over  on  the  bottom  right  side  we  put 
some  additional  keys  to  help  remember 
about  CLR/HOME  and  RESTORE  But  we 
were  still  a  little  contused. 

STILL  CONFUSED 

We  lound  we  were  confused  aboul  music 
programming,  color  graphics,  and  sprites. 
On  both  the  VIC-20  and  the  CBM-64  tem- 
plates we  carefully  organized  and  summar- 
ized the  essential  reference  data  for  music 
programming  and  put  it  across  the  top- 
showing  notes  and  the  scale.  All  Ihoso 
values  you  must  POKE  and  where  to  POKE 
them  are  listed. 

Then  to  clarify  color  graphics  we  laid  out 
screen  memory  maps  showing  character 
and  color  addresses  in  a  screen  matrix.  (We 
got  this  idea  from  the  manuals.) 

For  the  VIC-20  we  added  a  complete 
memory  address  map  for  documenting 
where  everything  is  in  an  expanded  or 
unexpanded  VIC. 


For  the  Commodore  64  we  came  up  with 
a  really  clever  summary  table  (or  showing 
almost  everything  you  ever  need  to  know  for 
sprite  graphics. 

GETTING  EASIER 

Now  we  had  organized  Ihe  most  essential 
information  for  our  VIC  and  64  in  the  most 
logical  way.  BASIC,  music,  color  graphics, 
and  sprites  all  seemed  a  lot  easier.  Our 
initial  problem  was  solved  by  PC-Docu- 
Mafe'" 

But  we  have  a  confession  to  make. 

WE  CHEATED 

We  had  solved  this  kind  of  problem 
before.  In  fact,  many  times  before,  You  see. 
we  at  SMA  developed  the  original  PC-Docu- 
Male  for  the  IBM  PC  We've  made  lemplates 
(or  IBM  BASIC  and  DOS.  for  WORDSTAR", 
VISICALC"  and  other  best-selling  software 
packages  for  the  IBM  PC. 

So  we  knew  we  could  invent  another 
PC-DocuMate'"  to  solve  our  problems  with 
the  VIC-20  and  Commodore  64.  Now  our 
solution  can  be  yours  and  you  can  join  the 
thousands  of  satisfied  users  ol  our  template 
products. 

Take  advantage  of  our  experience  and 
success  with  PC-DocuMate  templates.  Get 
one  for  your  personal  computer. 

SOME  SPECIFICS 

Our  templates  for  the  VIC  and  64  are 
made  from  the  same  high  quality  non-glare 
plastic  as  the  more  expensive  IBM  PC 
versions, 

The  templates  are  an  attractive  gray 
color  and  are  imprinted  with  a  special  black 
ink  which  bonds  permanently  to  Ihe  plastic. 
They  are  precision  die-cut  to  fit  your 
keyboard. 

Unlike  some  other  products  we've  seen 
in  this  category,  PC-DocuMate  templates 
are  professionally  and  expertly  designed. 
And  Ihey  are  fully  guaranteed. 


OUR  GUARANTEE 

We  guarantee  your  salistaction  You  must 
be  satisfied  with  your  PC-DocuMate  lot  your 
VIC-20  or  CBM-64.  Try  it  tor  10  days  and  il 
tor  any  reason  you  are  no!  satisfied  return  it 
to  us  (undamaged)  lor  a  lull  rotund  No  risk. 


SOLVE  YOUR  PROGRAMMING 
PROBLEMS  WITH  PC- Doc u Mate'" 

Order  your  PC-DocuMate  today  (by 
phone  or  mail)  and  solve  your  VIC-20  or 
CBM-64  programming  problems.  Send  only 
$12.95  and  specify  which  computer  you 
have.  We  pay  for  shipping  and  handling. 
Use  the  coupon  below  or  call  919-787-7703 
for  faster  service. 


IyeS!  Please  RUSH  me VIC-20 

templates  and/or CBM-64  tem- 
plates at  SI  2.95  each.  I  have  enclosed 

$ by: 

Check Money  order MC/VISA 


Name 

Address 

Cily 

State 

Zip 

Card* 

Exp. 

Signature 
Foreign  orders  (except  Canada)  add  $5.00  US 

Mail  to:  Systems  Management  Associates  t 
3700  Computer  Drive,  Dept.  J-1  , 
P.O.  Box  20025  I 


Raleigh,  North  Carolina  27619 


msm 

I  MuatarC-nrrf  J 

._l 


VIC-20  and  Commodore  &4  are  trademarks  of  Commodore  Busi- 
ness Machines,  Inc. 

Ad  no  731  Copynghl  1B63,SMA 

Dealer  inquiries  invllld. 


falling  through  the  BNE  has  the  effect  of  lowering 
both  bytes.  Finally,  we  JSR  to  the  paddle  drawing 
routine  and  then  JMP  (jump)  back  up  to  our  main 
loop  of  the  program. 

The  method  for  redrawing  the  paddle  to  the 
right  is  quite  similar,  the  primary  distinction  being 
a  double  increment  instead  of  double  DEC  (see 
lines  49333  through  49337). 

If  you  have  any  comments  or  questions, 
please  send  them  to:  Machine  Language  For  Be- 
ginners, P.O.  Box  5406,  Greensboro,  NC  27403. 

ML  Mailbag 

Here's  a  letter  we  recently  received: 

In  your  article  "Safe  Places"  (December 
1983),  you  were  starting  an  ML  game.  And 
you  started  at  address  12288  with  the  8K 
expansion.  1  have  V1CMON  which  is  on 
tape  and  so  1  need  the  SK  for  it.  Is  there 
another  place  to  put  this  game?  I  was  thinking 
of  putting  it  in  the  cassette  buffer  starting 
at  828. 

Jeff  Cutcher 

VIC  memory  can  be  a  problem.  You  might 
want  to  use  the  Simple  Assembler  (November 
1983)  in  a  VIC  with  8K  expansion  memory  to  create 
this  ML  game.  Shorter  ML  routines  can  be  stashed 
away  into  the  cassette  buffer  if  you  aren't  using 


the  cassette  drive  at  the  time.  However,  the  ML 
game  has  outgrown  the  space  available  in  this 
buffer  with  the  addition  of  this  month's  paddle 
routines. 

To  summarize,  both  VIC  and  64  have  a  few 
safe  zones  in  zero  page:  address  2  is  unused  by 
the  computer,  addresses  163-177  are  largely  used 
by  the  cassette  operating  system  and  can  be 
employed  when  you're  not  using  cassette,  and 
251-252  are  free  (we're  using  them  this  month  to 
hold  our  paddle  pointer). 

Above  zero  page,  you  can  use  679-767  and 
828-1019  (the  cassette  buffer).  On  the  64  only, 
there  is  a  nice  zone  from  49152-53247.  To  make 
enough  space  for  the  game  on  the  VIC,  we  first 
POKE  56,48  (to  keep  BASIC  below  this  area)  and 
then  can  use  addresses  12288  and  above. 

See  program  listings  on  page  172.  (g 
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Toll  Free  Subscription  Order  Line 

800-334-0868 

In  NC  919-275-9809 


TELSTAR  64 

Sophisticated  Terminal  Communications  Cartridge  lor  ine  64. 

•PF0'  10D  00D  CP  D1  D2  BELL  12:30:00  10:14:36 

(TELSTAR's  Status  Line) 

Don't  settle  for  less  than  the  best! 

•  Upload/download  to/from  disk  or  tape. 

•  Automatic  File  Translation. 

•  Communicates  in  Industry  Standard  ASCII 

•  Real-Time  Clock  plus  Alarm  Clock. 

•  Line  Editing  capability  allows  correcting  and  resending  long  command  lines. 

•  9  Quick  Read  functions. 

•  Menu-driven. 

•  Similar  to  our  famous  STCP  Terminal  package. 

•  Works  with  Commodore  Modems  and  supports  auto-dialing. 

The  best  leature  is  the  price  —  only  S49.95  (Cartridge  and  Manual) 


Machine  Language  Monitor  Cartridge 

for  the  CBM  64 

More  than  20 commands  allow  you  to  access  the  CBM  64s  Microprocessors 
Registers  and  Memory  Contents.  Commands  include  assemble,  disassemble. 
registers,  memory,  transfer,  compare,  plus  many  more. 

Someday  every  CBM  64  owner  will  need  a  monitor  such  as  Ihis. 

Cartridge  and  Manual  -  S24.95 


8K  in  30  Seconds 

for  your  VIC  20  or  CBM  64 

n  you  own  o  vsc  JO  or  a  CM  M  ana  fa*  Men  concemec 

ooc<jt  inenjr^c^cl  a  dis*  to  store  your  pogroms  on 

worry  you^noionger  No.  me-es'-e"-^;'  --■■■:■':-' 

:;.t«  •  :-"■  zzi  z-zz'z~ ."  "  .  ■     »e-rce 

- •=-  -■;=.■:;;«  est  A-asoe&c     "isye  'uv  '.-:■ ' 

Wtn  IheRA!®!  you  can  load  and  Bore  on  you-  CSV 

aatasettea-.  6<  pogrom  moirrosUO  second!,  comoa-ea 

id  ire  current  3  nwjies  ot  o  V"C  JO  or  CW  (A  alrrat  qi 

last  as  me  ISil  G-iSK  rjrive 

The  3AS3IT  Is  easy  to  install,  oiicws  one  io  Append 

9os:c  Program  s  wot<s  with  or  wilroul  Eaponiion 

Memory,  ond  provides  two  oqio  file  moaes  The 

5AB  Si  t :  s  noi  on  ly  tasi  bui  reliable 

(Tne  Poboii  for  The  VIC  20  con^ai  ns  an  e>  pan  sion  con 

necror  so  you  oar.  s'rruikjneousiy  use  your  memory  poara.  sic 


$39.95 


MAE 


NOW 
THE  BEST 
FOR  LESS! 


$59.95 


For  CBM  64,  PET,  APPLE,  and  ATARI 

No*,  you  con  ha  *e  Ihe  same  proton  anally  deugned  Macro 
Assembler  to  for  a*  used  on  Space  Shuffle  precis 

•  isTi'o'  5rr.N2n:a,*i3ccTrTci".ds-  No  reeo  'c  'e'scv-  cec. 


me  *_se~ 
lis:':  -: 

•  ^*^j|*Ky.Mccf^Cc^aitionoionrdinierocTive 
Aiiemb-V  and  AJq  -  ftfrp  OQQQ  addwng 


Still  fid  ec/wtneea.  ssmdi  br  ou'  f'ee  ipec  ift&Bf1 


3239  Linda  Dr. 
Winston-Salem,  N.C.  27106 
(919)924-2889  (919)748-8446 
Send  for  free  catalog! 


;'Mq»1wCord  . 
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CMD64 
Computer 

$219 


P.O.  Box  3354  Cherry  Hill,  M.J.  08034 

Toll  FREE  (800)  992-3300 

For  Information  Call  [609)  424-7106 

Call  us  for  reliable  service,  experience  and  affordable  prices! 

FLOPPY  DISK 

Elephant  SS/DD  1101 '26 

Eronrianl  SS/DD  HOI 'IB 

Verbatim  SS.  DD  |10| 'Call 

WORD  PROCESSING 

Quick  Brown  Fo*  ,,,...... '48 

Eniy  Script '3B 

Word  Pro  64 '64 

PROGRAMMING  SERIES 

Assembler  64  ,,.. '16 

logty **8 

Pilot '39 

Simon  Basic *1  9 

ScTBdn  Editor '19 

CPM »&a 

EDUCATION 

English  l-VII »9 

Math  f-VIII *9 

Com  put  of  Scianca ■*.► l9 

Science  l-iV *9 

Technology „.. l9 

Historv »9 

9usinoss M+a ,,  *9 

Geography *9 

GAMES 

Avenger *1B 

Wiiard  Wor «19 

J  u  pi  tar  Lander *16 

Pmba1l  Spool „„tt  *19 

U-mnns MS 

Radar  flat  Race. ......  "IB 

Clowns „ *f  9 

Gori , M9 

Omega  Race *19 

Sea  Wolf M9 

IMFOCOM 

Zork  l„  II.  Ill *27aa. 

Suspended! , *29 

Slarcroii *29 


1541  Disk  Drive 

$245 

1620  Color  Plotter "165 

1525  Printer "215 

1526  Printer '319 

1530  Datasetlo '64 

1600  Modem "59 

1650  Auto  Modem 'SB 

1110  BK  Memory  Exp '52 

1111  16K  Memory  Exp '6B 

1011  RS  232 

Terminal  Interface '42 

121 T  Super  Expander '63 

1212  Programmer's 
Aid  Cartridge '39 

1213  Machine 
Language  Monitor '39 

Color  Monitor 

1702 

H'  Rfttft.  CMtiUndifi^ 
rmeii.:  3»  s-pical  Con-iTod&'t 
tnmpvtrr  wemt 


lo#ei 

Put 


$259 


Reg,  '15« 

$6.99! 


PRINTERS 

EPSON 

RX-80.  RX-BOFT s  CALL 

FX-BO,  FX-100 SCALL 

OKIDATA 

92 >44S 

STAR 

Gemini  10 -299 

Gamini  15 a449 

C.  ITOH 

Gorrilla '209 

Prowritar '360 

SMITH  CORONA 

TP-2 '468 

Cardco  Printer  Interlace '57 

Tymac  the  Connection '99 

CARDCO 

6  Slot  Expander  Interface...  '72 
3  Slot  Expander  Interface...  '31 

Ordering  &  Payment  Policy 

Prices  reflect  a  cosh  discount.  For  COD.,  Visa,  and  Master- 
card add  3%  Immediate  delivery  with  certified  check  or  wired 
funds.  N.J.  resident  add  6%.  Prices  subject  to  change. 


Deadline '29 

COMPUTER  COVERS 


CUD  04 SB. 99 

VIC  20 66,99 

Diik  Onva SB. 99 

Ejpon  MX  BO....  (7.93 
Espon  MX  HO  FT  S7, 99 
Okidata  92 17  99 

BOOKS 

Kids  and  the  VIC MB 

Programmer's  Reference 

Guide  VTC '14 

Programmer's  Reference 

Guide  64 MB 

COMPUTE 

lit  Book  otCMD  84 '12 

lit  Soak  of  Sound  &  Graphics  ...  '12 

lit  Hook  of  64  Gamut "12 

Reference  Guide  to  B4 

Graphics '12 

Arcade  Games  on  the  64 '12 

1st  Book  of  VIC  '12 

2nd  Book  of  VIC '12 

VIC  Games "12 

Machine  Language  for 

Beginners , '14 


Shipping 

For  shipping  and  handling 
add  3%.  (S3  minimum) 
Larger  shipments  require 
additional  charge. 


Catalog 

We  sell  a  large  selection  of 
hardware  and  software. 
Send  SI  for  catalog,  refun- 
dable with  order. 


Computer 
Tutor 


VIDEO  INSTRUCTION  TAPES! 
STEP  BY  STEP  INSTRUCTIONS 

PICTURES  ARE  WORTH 

THOUSANDS  OF  WORDS  AND  SAVE 

HOURS  OF  FRUSTRATION 

USE  YOUR  VCR  SIDE  BY  SIDE  WITH  YOUR  COM- 
PUTER TO  LEARN  HOW  TO  PROGRAM.  AND  HOW 
TO  USE  PROGRAMS.  YOUR  VCR  ALONG  WITH 
YOUR  COMPUTER  SERVE  AS  YOUR  PERSONAL 
TUTOR.  PAUSE  YOUR  VCR  TO  REVIEW  AND 
LEARN  AT  YOUR  OWN  PACE. 

TAPES  NOW  AVAILABLE 


CAT# 

TOPIC 

ATFROI  HUN  TIME 

BP-3 

LEARNING  C-64  BASIC 

2HH 

149.95 

BP-4 

LEARNING  V1C-2Q  BASIC 

2  HR 

%*iii 

1)10-1 

COMMODORE  64  DISK  I'O 

1  HR  45  MIN 

$49.95 

UIO-2 

VIC  20  DISK  I/O 

1  HR  45  MIN 

$4995 

EW-3 

CALC-RESULI  ADVANCED 

t  HR  30  MIN 

S39.95 

EW-4 

CALC  RESULT  EAZY 

1  HR  15  MIN 

$29.95 

EW-5 

PRACTICAL^  C-64 

1  HR  ta  MIN 

$19.95 

Ew-G 

PRACTICALC  VIC-20 

1  HR  15  MIN 

129  95 

WP-5 

SCRIPT-64 

1  HR  30  MIN 

$3995 

UT-2 

THE  LAST  ONE 

1  HR  30  MIN 

$3995 

Electronic  worksheet:  EW-3-6  Detailed  step  by  step  in- 
sturction  in  the  use  of  electronic  spread/sheet  software. 
Work  along  and  set  up  a  complete  example  worksheet. 

Basic  programming;  BP-3  &  4  Teaches  BASIC  Language 
commands  and  programming  techniques.  Builds  your  know- 
ledge horn  beginning  in  advanced  levels 

Data  File  Programming:  DIO-1  &  2  teaches  BASIC  Language 
data  file  programming  using  random,  sequential,  and  relative 

access  data  files 


VHS  or  BETA  FORMAT 

Add  $3.00  per  order  for  shipping  and  handling. 
Add  $3.00  (or  C.O.D. 


To  Order 
Phone  or  Write 


maswi  ( haiyt 


LYNN       COMPUTER  SERVICE 

6831  West  157th  Street  Tinley  Park.  Illinois  60477 
(312)429-1915 

VIC'20  AND  COMMODORE  64  ARE  TRADEMARKS  OF  COMMODORE 
BUSINESS  MACHINES.  INC  CALCRESULT  IS  ATRADEMAHKOF  HAND1C 
SOFTWARE  PRACTICALC  IE  A  TRADEMARK  Of  COMPUTER  SOFTWARE 
ASSOCIATES 


Making  More 
Readable  Listings 


Brent  Dubach 


Have  you  ever  tried  to  find  a  key  subroutine 
or  loop  in  a  long  BASIC  listing?  If  you  have, 
you  know  how  tedious  it  can  be.  This  tutorial 
demonstrates  some  very  sneaky  BASIC  editing 
techniques  that  you  can  use  for  more  readable 
listings.  For  the  VIC  and  64. 


A  few  carefully  chosen  variable  names  can  help 
make  the  difference  between  a  readable  program 
and  an  unintelligible  mess.  But  BASIC  does  not 
make  these  choices  easy.  Did  you  ever  want  to 
use  a  BASIC  keyword  like  TO  or  FN  within  a  vari- 
able name,  such  as  LET  TOP  =  10  or  PRINT  FNS? 

Commodore  BASIC  won't  allow  it.  But  by 
fooling  a  couple  of  BASIC  routines,  you  can  use 
these  illegal  variable  names  and  do  even  more  to 
improve  the  appearance  of  your  listings.  Let's  see 
how  to  use  this  technique  and  then  consider  what 
makes  it  work. 

Illegal  Variable  Names 

The  key  is  to  use  graphics  characters  where  they 
normally  don't  belong.  You're  probably  used  to 
using  a  graphics  character  as  the  last  character  in 
the  abbreviation  of  a  BASIC  keyword.  For  ex- 
ample, if  you  type  a  F  followed  by  a  SHIFTed  O, 
BASIC  understands  that  you  intend  an  ordinary 
POKE  command.  But  let's  see  how  BASIC  will 
handle  a  graphics  character  in  the  middle  of  a 
variable  name. 

10  LET  NJUMBER  =  50 
20  PRINT  NJUMBER 

To  get  the  graphics  character  between  N  and  U, 
type  a  SHIFTed  J.  You  can  use  any  graphics  char- 
acter that  will  not  result  in  an  abbreviation  of  a 
BASIC  keyword.  (For  example,  an  N  and  a 
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SHIFTed  E  combine  to  form  the  keyword  NEXT.) 
Now  LIST  the  program 

10  LET  NUMBER  =  50 
20  PRINT  NUMBER 

and  RUN  it. 

50 
READY. 

Nothing  too  impressive  here.  All  we  have  is 
a  program  that  LISTs  and  RUNs  exactly  as  it  would 
if  we  left  out  the  graphics  characters.  Now  let's 
do  something  that  is  downright  illegal. 

10  LET  TOP  =  65 

20  LET  BOTTOM  =  90 

30  PRINT  BOTTOM  -  TOP  +  1 

If  you  enter  and  RUN  this  program,  you'll  get  a 
syntax  error.  The  sequence  TO  may  not  appear 
anywhere  within  a  variable  name  as  it  does  here 
in  TOP  and  in  BOTTOM.  It  is  reserved  for  use  as 
a  BASIC  keyword  only  (as  in  FOR  J  =  1  TO  5). 

Let's  try  to  fool  BASIC.  We'll  place  a  graphics 
character  (the  SHIFTed  J)  just  before  the  offending 
last  character  that  completes  the  BASIC 
keyword — that  is,  before  the  O  in  each  TO. 

10  LET  TJOP  =  65 

20  LET  BOTTJOM  =90 

30  PRINT  BOTTJOM  -  TJOP  +  1 

Here's  what  you  see  when  you  LIST  it: 

10    LET   TOP   =    65 

20  LET  BOTTOM  =  90 

30  PRINT  BOTTOM  -  TOP  +  1 

These  lines  appear  identical  to  the  illegal  program 
you  entered  a  moment  ago.  Now  RUN  the 
program: 

26 
READY. 

It  works,  with  an  illegal  variable  name  in  every 


W>  I 
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Column  Smart  Terminal 

For  Your  C64  Without  Any  Hardware  Change! 


tear  ftfftr, 

Start*  right,  liis  t!P  Ten-urisl  is  tre  aife  tenniai  for  the  C  M  wcrth 
onrtj.   "bat  fwfcie  software  Vat  c-ms  with  «j  tcdm  .let  dich't  w:ri ., 
especially  with  w  rew  surtnitN.   >e  $  cobn  dispLsj  akre  »s  *li  *rth 
the  $&*  -  itch  less  the  43,  M  and  IS  character  aSways  -  art  it  doesn't 
reed  an  hardware  charges.  Imagine  1ft  chariciert  en  5  Ire;,  Ifeek,  there': 
ten?  text  en  m  scretfi  than  en  *j  uxk-'s  tele  or  m  dad's  I  B  t\  •  P  C! 

I  put  auto-dial  to  Hark  right  away.  I  auto-dtaled  Cerfuserw,  bX 
couldn't  get  tfnx^,  so  I  fad  HP  Terwiral  redial  'til  it  got  ttrom  -  it 
dialed  fw?  uruUs  straight!  lw  I  ap>j.Tk>39?d  en  with  en?  of  ry  a  preg^arr 
mkJ  \ps,  and  damkvaJed  s>»?  g-aphic;  <u*sns,  ani  stock  *Dtos  ftr  dad.  I 
prrtsa  it  axl  saued  it  to  disk  ae  it  cm  en  the  screen,  Icwi  fhd  ncM  I  C4n 
serd  yxi  m  prolans  autmatioalk   I  gtf  y.irs  ard  they  worted  risht  off. 

lose  icons,  -  you  tnw,  Us  the  Pfple  Lisa  -  are  a  let  0/  An.  I  also 
li*  the  twus,  ftrcticn  teys,  higSIivhts,  neb  tiles  -  tread  ftr  a  nscoer 
14*  «.  frd  kith  the  nary  opt.  we  UVe  isn't  a  cofutor  I  can't  to*  to. 

Hat's  realfe  neat  is  that  S/tl*  has  a  rf»le  HP  Lirary  of 
rfcractiw  prtg-ac,  ire  Wire  a  wrd  pfo»sscr,  spreadsheet  ara  database, 
*ich  will  te  out  son.  Sis  prcni-wJ  *? the  kfc-k-  set  for  ty  birtMay. 

I  sw  by  the  bjilt-in  Md  dak"  on  the  screen  that  kna-disuns  rates 
are  dac   to.  to  tall  that  L.fi.   E  8  S.  S-p,  tj-^r*  g:es  the  alar*.   Later. 


VIP  TERMINAL™ 

They're  right!  To  start  with  the  best 
you've  got  to  have  the  VIP  Terminal! 

■  Built-in  40, 64,  80  and  106  columns 

■  Word  wrap  for  a  formatted  display 

■  Talk  to  any  computer 

■  Use  any  modem  and  printer 

■  Written  in  fast  machine  code 

■  15  entry  phone  directory 

■  20  programmable  keys 

■  Automatically  dial,  redial,  upload, 

download  and  log-on 

■  Professional  %  character  ASCII  display 

■  120  character  ASCII  keyboard 

■  Simultaneous  on  line  printing  and 

saving  of  files  to  tape  and  disk 

■  Use  and  save  files  as  big  as  your  disk! 

■  E  Mail  &  E-COM  Compatible 

Get  yours  NOW!  $49.95 


Introducing  The  VIP  Library 


The  Library  Concept 

The  VIP  Terminal  is  only  the  first  in  a 
whole  series  of  elegant  software  for 
your  Commodore  64  called  the  VIP 
Library.  This  complete  collection  of 
easy-to-use,  serious,  high  quality, 
totally  interactive  productivity  software 
includes  VIP  Writer,  VIP  Speller,  VIP 
Calc,  VIP  Database,  VIP  Disk-ZAP,  VIP 
Accountant  and  VIP  Tax.  All  are  equal 
in  quality  to  much  more  expensive 
software  for  the  IBM  I'C,  and  all  are 
very  affordable! 
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Virtual  Memory 

VIP  Library  programs  are  not  limited 
by  the  size  of  your  computer's 
memory.  All  programs  use  virtual 
memory  techniques  to  allow  creation 
and  use  of  tiles  larger  than  your 
computer's  available  work  area.  You're 
only  limited  by  the  space  on  your  disk! 

CI 983  by  So  Ml  aw  Corporation 


Icons  Make  Learning  Easy 

Hi-res  technology  and  sprites  allow 
VIP  Library  programs  to  bring  you  task 
Icons,  made  famous  by  the  Apple  Lisa'" 
and  the  Xerox  Star™.  With  these 
advanced  sprite  representations  of  the 
task  options  open  to  the  user,  even  the 
total  novice  can,  at  a  glance,  perform 
every  task  with  ease.  Just  look  at  the 
icon  and  press  a  key!  No  programs  are 
easier  or  more  fun  to  learn  and  usel 

Total  Compatibility 

All  VIP  Library  programs  are 
compatible  with  each  other  and  other 
computers  for  easy  tile  transfer.  Each 
uses  ASCII,  the  universal  language  of 
computer  communications  so  that  tiles 
can  be  sent  to  and  received  from  other 
computers  without  modification!  The 
Library  also  gives  you  the  benefit  of  a 
consistent  icon  and  command 
structure.  Once  you  have  learned  one 
program,  the  others  will  come  easily. 

For  Orders  ONLY  •' 
—  Call  Toll  Free  —  ! 

1-800-328-2737 

Order  Status  and  Software  Support 

call  (612)  881-2777 

Available  at  Dealers  everywhere.  If  your 

Dealer  is  out  of  stock  ORDER  DIRECT! 

MAIL  ORDERS:  $3.00  U.S.  Shipping  ($5.00 
CANADA;  $10.00  OVERSEAS.  Personal 
checks  allow  3  weeks. 


Professional  Displays 

The  40-characters-per-line  display  of 
the  Commodore  64  is  inadequate  for 
serious  computing.  An  80-column 
display  is  the  industry  standard.  VIP 
Library  programs  bring  this  standard  to 
your  Commodore  64  with  state-of-the- 
'art  graphics,  without  need  for  costly 
hardware  modifications.  With  VIP 
Library  programs  you  can  freely  choose 
from  tour  displays:  the  standard  40 
column  display,  plus  a  64,  80  and  even 
a  106  column  by  25  line  display.  With 
these  programs  you  can  have  more  text 
on  your  screen  than  on  an  IBM  PC  or 
an  Apple  lie  with  an  80-column  board! 
Welcome  to  the  professional  world! 

Who  Is  Softlaw? 

Softlaw  Corporation  has  years  of  soft- 
ware experience  in  micros.  We  currently 
offer  the  full-line  VIP  Library  for  other 
micros  in  the  U.S.  and  in  Europe.  Now  we 
are  bringing  this  experience  to  the  Com- 
modore 64  so  you  get  ultra-high  quality 
software  at  very  affordable  prices. 


9072  Lyndale  Ave.  So.,  Mpls.,  MN  55420 

AUTHOR'S  SUBMISSIONS 
ARE  ENCOURAGED. 
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OMMODORE 

(mora  power  than  Appla  II  at  hall  me  price) 


64 


50* 


COMPUTER  AND  SOFTWARE 

SALE 


170K  DISK  DRIVE  $159.00  W 
TRACTION  FRICTION  PRINTER  $109.00' 


WE 

HAVE 

THE 

BEST 

SERVICE 


WE 

HAVE 

THE 

LOWEST 

PRICES 


VIC-20 

(a  real  computer  at  the  price  of  a  toy) 

50 


s69. 


-  40-80  COLUMN  BOARD  $59.00 

•  32K  RAM  EXPANDER  $95.00 


*  COMMODORE  64  COMPUTER  $99.50 
you  pay  only  S  199.50  when  you  order  Iho  power- 
ful 84K  COMMODORE  64  COMPUTER!  LESS  the 
value  of  the  SPECIAL  SOFTWARE  COUPON  we 
pack  with  your  computer  thai  allows  you  to 
SAVE  OVER  S100  oft  software  sale  prices!!  With 
only  5100  of  savings  applied,  your  riel  compuler 
cost  is  $99.50!! 

SOFTWARE  BONUS  PACK  S29.95 
When  you  buy  the  Commodore  64  Compuler 
from  Prolecto  Enterprises  you  quality  to  pur- 
chase ONE  SOFTWARE  BONUS  PACK  for  a 
special  price  of  S29.95M  Normal  price  Is  149.95 
(40  programs  on  disk  or  24  programs  on  5  lapes) 

♦  170KDISKDRIVES159.00 
Vou  pay  only  $259.00  when  you  order  the  170K 
Disk  Drive!  LESS  the  value  of  the  SPECIAL 
SOFTWARE  COUPON  wc  pack  with  your  disk 
drive  that  allows  you  lo  SAVE  OVER  $100  off 
software  sale  prices!  I  With  only  $100  of  savinfjs 
applied,  your  net  disk  drive  cost  is  $159.00. 

*  TRACTION  FRICTION  PRINTER  $109.00 
you  pay  only  $209,00  when  you  order  the  Com- 
star T/F  deluxe  line  printer  that  prints  8  t'2  i  11 
full  size,  single  sheet,  roll  or  fan  fold  paper. 
labels  etc.  40.  66,  60,  132  columns  Impacl  dot 
matrix,  bi-directional,  80  CPS.  LESS  the  value  of 
the  SPECIAL  SOFTWARE  COUPON  we  pack 
wllh  your  printer  lhal  allows  you  to  SAVE  OVER 
$100  off  software  salo  prices!!  Wllh  only  $100  of 
savings  applied  your  net  printer  cost  is  only 
$109.00. 

80  COLUMN  BOARD  599.00 
Now  yog  program  80  COLUMNS  on  the  screen 
at  one  time!  Converts  your  Commodore  64  to  BO- 
COLUMNS  when  you  plug  in  the  SO  COLUMN 
EXPANSION  BOARD!!  List  $199  SALE  $99 
PLUS— you  also  can  get  an  80  COLUMN  BOARD 
WORD  PROCESSOR  wllh  mail  merge,  terminal 
emulator.  ELECTRONIC  SPREAD  SHEET  List 
$59.00  SALE  $24.95  if  purchased  wllh  80 
COLUMN  BOARD!  I  (Tape  or  Disk) 

80  COLUMNS  IN  COLOR 
EXECUTIVE  WORD  PROCESSOR  $69.00 
This  EXECUTIVE  WORD  PROCESSOR  is  the 
finest  available  lor  the  COMMODORE  64  com- 
puler! The  ULTIMATE  lor  PROFESSIONAL  Word- 
processing  application!  DISPLAYS  40  OR  60 
COLUMNS  IN  COLOR  or  Black  and  While!  Sim- 
ple lo  operate,  powerful  texl  editing  with  a  250 
WORD  DICTIONARY,  complete  cursor  and  in- 
sert/delete key  controls  line  and  paragraph  inser- 
tion, automatic  deletion,  centering,  margin  sel- 
lings and  output  lo  all  printers!  Includes  a 
powerful  mail  merge.  List  $99.00  SALE  $69,00, 
20,000  WORD  DICTIONARY  ■  List  $24.95  SALE 
S19.95.  EXECUTIVE  i)ATA  BASE  -  Llsl  $89.00 
SALE  $59.00.  (Disk  only). 


SPECIAL  SOFTWARE  COUPON 

We  pack  a  SPECIAL  SOFTWARE  COUPON 

with  every  COMMODORE 

64  COMPUTER- 

DISK  DRIVE-PRINTER.MONITOR  we  sell! 

This  coupon  allows  you 

lo   SAVE 

OVER 

J100  OFF  SALE 

PRICES 

S2OO-S3O0    sav- 

Ings  are  possible! 

(example) 

PROFESSIONAL  SOFTWARE 

COMMODORE  64 

N»mt 

LIU 

Sale 

Coupon 

Executive  Word 

Processor 

J9900 

569  00 

159  00 

EkdcuIivc  Oaia  Base 

sag  oo 

159  00 

146  00 

20.000  Word  Dictionary 

'.:■.'■. 

119  95 

$14  95 

Electronic  Spreadsheet 

189  00 

159  00 

146  00 

Accounling  Pach 

169  00 

149  00 

132  00 

Total  5  2 

Wort]  Processor 

Tape 

16900 

156  00 

137  00 

Disk 

17995 

163  00 

142  00 

To[anoxl2  6 

ware]  Processor 

Tape 

U*  95 

139  00 

126  00 

Disk 

519  OQ 

142  00 

129  00 

Total  label  26 

Tape 

«4  95 

118  00 

112  00 

Disk 

SM95 

123  00 

11500 

Programmers 

Helper  iDi ski 

159  00 

$39  00 

129  95 

Basic  Tutor  (Tape/Disk, 

(29  95 

124  95 

11500 

Typing  Trjachor 

iTaporDisk} 

S29  95 

124  95 

11500 

Sp'ile  Designer  (Dishi 

116  95 

11495 

110  CO 

Medici  t  omen  |Tapei 

11995 

M7.95 

11200 

Wealhcr  War  II  (Tape) 

119  95 

11795 

11200 

Professional  Joy  Slick 

124  95 

11595 

11100 

LrgntPen 

139  95 

119  95 

116  95 

Oust  Cover 

1   895 

S  6  95 

I  460 

/Seeorrrer 

re/ns  in  our 

catalog'} 

Write  or  call  lor 

Sample  SPECIAL  SOFTWARE  COUPON! 

EXECUTIVE  QUALITY 
PROFESSIONAL  BUSINESS  SOFTWARE 

The  Cadillac  of  business  programs 
tor  Commodore  64  Computers 

Mam 

invflfilQfy  Manage  merit 
Accounts  Receivable 
Account  Payable 
Payroll 

General  Ledger 
rCOUP^*!  PRFCE  J49.M) 


Lilt 

'SALE 

199  00 

159  00 

199  00 

149  00 

199  00 

169  00 

199  00 

159  00 

199  00 

159  CO 

VIC-20  COMPUTER  $69.50 
This  25K  VIC-20  computer  includes  a  lull  size  66 
key  typewriter  keyboard  color  and  graphics  keys, 
upperflower  case,  full  screen  editor,  16K  level  II 
microsoft  basic,  sound  and  music,  real  time 
lloatmg  poini  decimal,  self  leaching  book,  con- 
nects to  any  TV  or  moniior! 


40-80  COLUMN  BOARD  SS9.00 
Now  you  can  get  40  OR  B0  COLUMNS  on  your 
T.V.  or  monitor  at  one  lime!  No  more  running 
out  ot  line  space  for  programming  and  making 
columns!  Just  plug  in  this  Expansion  Board  and 
you  immediately  convert  your  VIC-20  compuler 
lo  40  OR  80  COLUMNS!!  List  SI 29  SALE  $59.00. 
You  can  also  get  an  80  COLUMN  BOARD  WORD 
PROCESSOR  with  mail  merge,  lerminal  emulat- 
or, ELECTRONIC  SPREAD  SHEET!!  Lul  S59D0 
SALE  124.96  il  purchased  with  80  COLUMN 
BOARD1  (Tape  or  Disk). 

32K  RAM  EXPANDER  195.00 
This  cartridge  increases  programming  power 
over  6  times!!  Expands  total  memory  to  57K 
(57.000  bytes)  Block  switches  are  on  outside  of 
cover!  Has  expansion  port!!  Lists  lor  (199  (OUR 
BEST  BUY!) 

60K  MEMORY  EXPANDER  S49.O0 
Sixslot  —  Switch  selectable  —  Reset  button  — 
Ribbon  cable  —  CARDCO.  A  must  lo  get  the 
most  out  ot  your  VIC-20  Computer! 

SK  RAM  CARTRIDGE  S39.00 
increases  programming  power  2  1(2  limes.  Ex- 
pands   total    memory    to    33K    133,000    bytes). 
Memory  block  switches  are  on  outside  ot  cover! 
Includes  FREE  116  95  game. 

16K  RAM  CARTRIDGE  $55.00 
Increases  programming  power  4  limes.  Expands 
tolal    memory    to   41K    (41.000    bytes).    Memory 
block  switches  arc  an  outside  cover!  CARDCO 
Includes  FREE  $29  95  adventure  game!! 


12'  GREEN  SCREEN  MONITOR  $99.00 

Excellent  quality  GREEN  PHOSPHOROUS 
VIDEO  MONITOR  with  antiglare.  1920  characters 
180  characters  x  24  rows)  Save  your  TV!  a  must 
tor  80  column  wold  processors  PLUS  $9.95  tor 
ViC  20  or  Commodore  64  Cable. 


12- AMBER  SCREEN  MONITOR  $119.00 
Premium  quality  AMBER  VIDEO  MONITOR  With 
antiglare,  (60  characters  x  24  rows),  exceptional, 
ly  clear  screen,  laster  scanning.  PLUS  $9.95  (or 
VIC  20  or  Commodore  64  Cable 


•  LOWEST  PRICES 
•  BESTSERVICE  IN  U.S.A. 


15  DAY  FREETRIAL  •  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  ONE  DAY  EXPRESS  MAIL  •  OVER  500  PROGRAMS  •  FREE  CATALOGS 


|  Add  $10.00  for  shipping,  handling  and  insurance.  Illinois  residents 
j  please  add  6%  tax.  Add  $20.00  tor  CANADA.  PUERTO  RICO,  HAWAII 
|  orders.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES. 
j  Enclose  Cashiers  Chock.  Money  Order  or  Personal  Check,  Allow  14  days 
.  for  delivery,  2  to  7  days  (or  phone  orders.  1  day  exoress  mail!  Canada 
VISA  -  MASTERCARD  -  COO 


!  orders  musl  be  in  U.S.  dollars. 


EWTERPRIZES  (WE L0V£ 0UR ( ",,Ti •"■" n:;i 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312/382-5244  to  orctor 


FANTASTIC 

PRINTER 

SALE 


as 

low 

as 


$ 


149 


oo 


15  Day  Free  Trial  -  180  Day  Immediate  Replacement  Warranty 


80  COLUMN  THERMAL  PRINTER  —  60  CPS 

Bi-directional,  dot  matrix,  prints  8V  letter  size  paper,  full  80  columns,  high 
resolution  graphics,  dot  bit  addressable,  special  symbols  and  true  decenders! 
(Centronics  parallel  interface) 

80  COLUMN  TRACTOR-FRICTION  PRINTER  —  80  CPS 

Bi-directional,  dot  matrix,  impact,  prints  single  sheets,  continuous  feed  paper, 
adjustable  columns,  40  to  132  characters!  Roll  paper  adapter  $32.95. 
Centronics  parallel  interface) 

PREMIUM  QUALITY  10"  CARRIAGE  T/F  PRINTER  —  120  CPS 

Bi-directional,  impact,  9  x  9  dot  matrix  with  double  strike  for  18  x  18  dot  matrix. 
High  resolution  bit  image  (120  x  144  dot  matrix)  underlining  back  spacing,  left  and 
right  margin  settings,  true  lower  decenders,  with  super  and  sub  scripts.  Prints 
standard,  italic,  block  graphics,  special  characters,  plus  24  of  user  definable 
characters  and  much  morel!  Prints  single  sheets,  continuous  feed  and  roll  paper! 
(Centronics  parallel  interlace) 

PREMIUM  QUALITY  15%"  CARRIAGE  PRINTER  —  120  CPS 

Has  all  the  features  of  the  Premium  Quality  10"  Carriage  T/F  Printer  above  plus  a 
15V  carriage  and  more  powerful  electronic  components  to  handle  large  business 
forms!  (Centronics  parallel  interface) 

HIGH  SPEED  PREMIUM  QUALITY  T/F 

10"  PRINTER  —  160  CPS 

Save  printing  time  with  these  plus  features:  160  CPS  speed,  100%  duty  cycle,  8K 
buffer  diverse  character  fonts  special  symbols  and  true  decenders,  vertical  and 
horizontal  tabs.  This  is  Red  Hot  Efficiency!!!  (Serial  or  Centronics  parallel  interface) 

HIGH  SPEED  PREMIUM  QUALITY 

T/F  15V2"  PRINTER  —  160  CPS 

Has  all  the  features  of  the  10"  Carriage  high  speed  printer  plus  a  15 V  carriage  and 
more  powerful  electronics  to  handle  larger  business  forms!  (Serial  or  Centronics 
parallel  interface) 

PARALLEL  PRINTER  INTERFACES:  (IN  STOCK) 

$49.00 


LIST 

$199 


$399 


$499 


SALE 

$149 


$209 


$289 


$599 


$699 


$799 


$379 


$499 


$599 


For  VIC-20  and  COMMODORE  64 

For  all  APPLE  COMPUTERS 

For  ATARI  400  and  800  COMPUTERS 


$69.00 
$79.00 

NOTE:  Other  printer  interfaces  are  available  at  computer  stores! 


SALE 


SALE 


WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT 
CANADA. 

Enclose  Cashiers  Check.  Money  Order  or  Personal  Check.  Allow 
14  days  for  delivery,  2  lo  7  days  for  phone  orders,  1  day  express 
mail!  Canada  orders  musl  be  in  US  dollars  We  accepl  Visa 
and  MasterCard  We  ship  COO 


EN1FERPRIZE S  ,wI Luvt°un  customers! 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312/382-5244  to  ordar 


®  SANYO  MONITOR  SALE!! 


9"  Data  Monitor 


80  Columns  x  24  lines 
Green  text  display 
East  to  read  -  no  eye  strain 
Up  front  brightness  control 
High  resolution  graphics 
Quick  start  -  no  preheating 
Regulated  power  supply 
Attractive  metal  cabinet 
UL  and  FCC  approved 


15  Day  Free  Trial  -  90  Day  Immediate  Replacement  Warranty 


9"  Screen  -  Green  Text  Display  $  79.00 

12"  Screen -Green Text  Display  (anti-reflective  screen)  $  99.00 
12"  Screen  -  Amber  Text  Display  (anti-reflective  screen)  $119.00 
14"  Screen  -  Color  Monitor  (national  brand)  $249.00 

Display  Monitors  From  Sanyo 

With  the  need  for  computing  power  growing  every  day,  Sanyo  has 
stepped  in  to  meet  the  demand  with  a  whole  new  line  of  low  cost,  high 
quality  data  monitors.  Designed  for  commercial  and  personal  com- 
puter use.  All  models  come  with  an  array  of  features,  including  up- 
front brightness  and  contrast  controls.  The  capacity  5x7  dot 
characters  as  the  input  is  24  lines  of  characters  with  up  to 
80  characters  per  line. 

Equally  important,  all  are  built  with  Sanyo's  commitment 
to  technological  excellence.  In  the  world  of  Audio/Video,  Sanyo  is 
synonymous  with  reliability  and  performance.  And  Sanyo  quality  is 
reflected  in  our  reputation.  Unlike  some  suppliers,  Sanyo  designs, 
manufactures  and  tests  virtually  all  the  parts  that  go  into  our  products, 
from  cameras  to  stereos.  That's  an  assurance  not  everybody  can 
give  you! 


%y 


Off icuil  Video  Pmducts 
of  the  Los  Angeies  1984  Qtympks 


Q8P 


] 
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•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL  •  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL  •  OVER  500  PROGRAMS  •  FREE  CATALOGS 


I  Add  110.00  for  shipping,  handling  and  Insurance.  Illinois  residents  I 
|  please  add  B%  tax.  Add  (20.00  (or  CANADA,  PUERTO  RICO,  HAWAII  | 
|   orders.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES. 
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line.  Try  it  with  LETTER,  FN$,  F.FFORT,  SEND, 
or  your  own  favorite  forbidden  variable  name. 

A  word  of  caution,  though.  ST,  TI,  and  T1S 
are  reserved  variable  names,  not  keywords  like  LET, 
PRINT,  and  other  BASIC  commands  or  functions. 
You  will  not  be  able  to  use  variable  names  whose 
first  two  letters  match  these  (like  START  or  TIME) 
even  with  the  technique  described  in  this  article. 
Since  they  are  just  variable  names,  however,  you 
may  embed  them  elsewhere  within  longer  names 
of  your  own  (FIRST  and  ATTIC,  for  example) 
without  any  special  editing  1  ricks. 

Indented  Listings  And 
Blank  Lines 

Besides  preventing  the  selection  of  certain  variable 
names,  BASIC  also  seems  to  prevent  the  entry  of 
blank  lines  as  well  as  spaces  at  the  beginning  of  a 
line.  Thus  we  cannot  neatly  frame  the  blocks  of 
code — loops,  or  IF/THEN  options,  or  sub- 
routines—that occur  in  a  program.  If  vou  have 
programmed  only  in  BASIC,  you  may  not  be  con- 
cerned about  such  things.  But  anyone  who  has 
used  a  structured  language  like  Pascal  appreciates 
being  able  to  see  a  listing  like  this: 

10   for   i   =   1   TO   10 

20    PRINT  "WE  INDENT  EVERY  STATEMENT" 
30    PRINT  "THAT  LIES  WITHIN" 
40    PRINT  "THE  FOR-NEXT  'BLOCK'" 
50  NEXT  I 
60 

70  PRINT  "AND  LEAVE  A  BLANK  LINE  BETWEEN 
BLOCKS" 

Try  entering  and  LISTing  the  program  above. 
Here's  what  you  should  see: 

10   for   i   =    1   TO   10 

20  PRINT  "WE  INDENT  EVERY  STATEMENT" 
30  PRINT  "THAT  LIES  WITHIN" 
40  PRINT  "THE  FOR-NEXT  'BLOCK'" 
50  NEXT  I 

70  PRINT  "AND  LEAVE  A  BLANK  LINE  BETWEEN 
[SPACE] BLOCKS" 

The  blank  line  and  all  the  indentations  have  dis- 
appeared. Of  course,  Commodore  BASIC  lets  you 
place  a  single  colon  at  the  start  of  each  line  and 
then  indent  as  much  as  you  wish.  But  that's  not 
the  same  as  a  nice,  clean  blank  line. 

Once  again,  we  can  type  an  extra  graphics 
character  and  fool  BASIC.  When  typing  in  a  pro- 
gram, many  people  type  a  space  after  the  line 
number  for  readability.  But  instead  of  the  space, 
you  can  type  the  SI  IIETed  J.  Reenter  the  preceding 
program  this  way: 

10JFOR  i=  1  TO  10 

20J   PRINT  "WE  INDENT  EVERY  STATEMENT" 

30J   PRINT  "THAT  LIES  WITHIN" 

40J   PRINT  "THE  FOR-NEXT  'BLOCK'" 

50JNEXT  I 


Now  when  you  LIST,  you  see  an  indented  format 
identical  to  the  one  you  first  tried  to  enter. 

Fooling  BASIC  into  giving  you  a  blank  line  is 
a  little  trickier.  A  single  SHIFTed  J  will  not  do  the 
job.  If  you  add  a  line  99,  say,  to  your  program 
and  put  only  the  graphics  character  on  that  line, 
line  99  will  not  show  up  in  the  LISTing.  But  try 
entering  this  (note  the  space  in  between  the  two 
SHIFTed  Js): 

99  v  *> 

Now  LIST  the  program  and  you'll  see  a  blank 
line  99. 

Paying  The  Price 

There  is  a  price  to  pay  for  all  this.  The  most  obvious 
(and  painful  for  those  with  unexpanded  VICs)  is 
memory  consumption.  Long  variable  names  and 
indentation  gobble  up  a  lot  of  bytes.  A  final  version 
of  a  routine,  though,  can  be  condensed  by  a  good 
list-crunching  program,  while  the  original  remains 
a  very  readable  version  for  later  examination  or 
revision. 

Another  penalty  is  simply  the  bother  of  re- 
membering to  type  extra  characters.  Be  careful 
whenever  you  try  to  edit  a  line.  To  preserve  any 
indentation,  you  must  enter  a  SHIFTed  J  in  place 
of  the  space  following  the  line  number  each  time 
you  change  the  line.  And  it's  easy  to  forget  to 
"legalize"  a  variable  name  by  inserting  a  graphics 
character  within  an  embedded  BASIC  keyword.  If 
you  do  forget,  you  will  be  reminded  when  you 
get  a  syntax  error  in  the  program,  So  watch  your 
editing  steps  carefully. 

The  hunt-and-peck  typist  (with  a  large  hunt- 
to-peck  ratio)  might  find  that  all  these  extra  char- 
acters arc  a  nuisance.  But  a  little  irritation  can 
lead  to  a  lot  of  satisfaction  when  you  get  a  more 
readable  program  listing. 

How  Does  It  Work? 

There  are  BASIC  routines  that  RUN  and  LIST  a 
program.  If  you've  experimented  with  the  short 
listings  here,  or  with  your  own,  you  have  proved 
to  yourself  that  RUN  apparently  doesn't  mind 
using  keywords  in  variable  names,  and  LIST 
seems  to  accept  leading  spaces  in  indented  lines. 
If  these  key  routines  are  so  tolerant,  what  is  it 
that  requires  us  tube  so  sneaky  in  achieving  them? 
The  answers  lie  in  the  behavior  of  several  other 
parts  of  BASIC. 

Are  They  Really  Illegal? 

First,  let's  consider  illegal  variables  and  a  BASIC 
routine  we'll  call  TOKENIZE. 

We  usually  think  of  BASIC  commands  as 
words  like  INPUT  or  LET  or  GOTO.  But  the  RUN 
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routine  does  not  see  it  that  way.  By  the  time  RUN 
sees  a  program,  BASIC  keywords  have  been  re- 
placed by  single-byte  numeric  codes,  or  tokens. 
TOKENIZE  is  the  part  of  BASIC  that  translates  the 
keywords  we  type  into  these  codes.  For  example, 
when  we  type  the  word  INPUT,  TOKENIZE  will 
collect  the  characters  in  that  word  from  the  five 
bytes  of  memory  they  occupy,  match  them  with  a 
word  in  the  computer's  list  of  BASIC  keywords, 
and  then  replace  them  with  the  token  for  INPUT 
(the  number  133),  which  takes  up  only  one  byte. 
This  saves  some  space  in  BASIC  memory. 

But  TOKENIZE  also  discards  any  out-ui -place 
graphics  characters  as  it  crunches  a  BASIC  com- 
mand into  the  computer's  memory.  This  is  what 
allows  us  to  enter  forbidden  variable  names.  When 
we  insert  a  graphics  character  (like  the  SHIFTed  J) 
in  the  middle  of  what  would  otherwise  be  a 
keyword,  imagine  how  TOKENIZE  must  react. 
Does  it  ever  find  the  word  INPUT?  Not  quite.  As 
it  is  collecting  characters,  it  is  interrupted  before 
finding  a  perfect  match  with  the  BASIC  word 
INPUT.  The  match  is  a  failure,  but  the  character 
which  foiled  it  is  eventually  discarded.  When 
RUN  gets  at  the  program,  it  now  finds  a  plain 
INPUT  (five  bytes  worth)  instead  of  the  single-byte 
token  that  represents  the  INPUT  command.  Any 
such  character  string  is  treated  as  a  variable  name. 

Our  illegal  variable  names,  then,  are  not  il- 
legal at  all.  We  just  have  to  be  sneakv  enough  in 
entering  and  editing  them  to  prevent  TOKENIZE 
from  doing  its  job. 

Finding  The  Right  Routine 

And  what  of  the  graphics  character  used  at  the 
beginning  of  an  indented  line? 

TOKENIZE  is  involved  again,  this  time  be- 
cause it  does  just  what  we  want  done:  It  keeps 
spaces  right  where  we  put  them.  Some  other  parts 
of  BASIC  use  a  routine  that  discards  spaces.  One 
of  these  is  the  part  that  translates  the  characters 
in  a  line  number  we  type  into  the  numeric  form  in 
which  it  is  stored.  Try  leaving  a  space  between 
two  digits  in  a  line  number.  No  problem — the 
spaces  are  discarded  and  the  line  number  appears 
in  a  listing  just  as  if  you  had  not  inserted  them. 

BASIC  continues  to  throw  away  spaces  until 
a  nondigit  character  which  eliminates  all  indented 
lines  is  found.  The  rest  of  the  line  is  turned  over 
to  the  TOKENIZE  routine.  But  by  then  it  is  too 
late:  All  indentations  have  already  been  stripped. 

Our  strategy  must  be  to  place  a  character 
immediately  after  the  line  number  so  that  the 
following  spaces  will  be  handled  by  the  right 
routine  for  our  purposes — by  TOKENIZE.  A 
graphics  character,  first  recognized  as  a  nondigit 
character  in  the  collection  of  a  line  number  and 
then  neatly  discarded  by  TOKENIZE,  is  the  perfect 
choice. 
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Guarding  The  Blanks 

Finally,  you  may  recall  that  in  order  to  create  a 
line  completely  blank  except  for  its  number,  we 
needed  first  a  graphics  character,  then  a  space, 
then  a  second  graphics  character.  The  reason  for 
the  first  was  just  discussed.  We  need  the  space  so 
there  will  be  something  on  the  line  for  TOKENIZE 
to  accept.  Remember  that  entering  a  completely 
blank  line  just  results  in  its  elimination  from  the 
program.  But  what  of  the  second  graphics  charac- 
ter? If  TOKENIZE  doesn't  mind  spaces,  why 
shouldn't  it  accept  a  whole  line  full  of  them  fol- 
lowing the  initial  graphics  character? 

In  the  first  place,  we  probably  want  only  one 
space — just  enough  to  create  a  blank  line.  And 
second,  TOKENIZE  never  gets  to  look  at  those 
trailing  spaces  anyway.  The  very  first  part  of 
BASIC  involved  in  handling  a  new  line,  the  part 
that  collects  characters  off  the  screen,  discards 
these  spaces.  Both  graphics  characters  are  needed 
to  protect  lone  blanks  from  the  space-killing  habits 
of  a  couple  of  parts  of  BASIC.  If  you  want  blank 
lines  with  a  lot  of  spaces,  though,  there  is  no 
reason  why  you  couldn't  enter  one  with,  say,  70 
of  them.  Just  be  sure  they  have  graphics  "body- 
guards" on  either  end. 

A  Do-Nothing  Program 

It  has  been  said  that  no  programming  language 
can  prevent  the  writing  of  bad  programs.  To  prove 
that  this  is  also  true  of  editing  tricks  designed  to 
promote  readable  listings,  type  in  the  following 
program.  It's  not  good  for  much  except  sneaky- 
editing  practice — and  perhaps  confounding  a  few 
BASIC  programming  friends  with  the  fact  it  runs 
without  error. 

100  LET  BEGINNING  =  1 

110  LET  END  =  10 

120 

130  FOR  POSITION  =  BEGINNING  TO  END 

140    INPUT  NOTHING 

150    PRINT  NOTHING 

160    GET  NOTHING 

170  NEXT  POSITION 

180 

199    END  ffi) 


£ 


An  income  tax  program  for  everyone  to  use. 
TAX  COMPUTATION  has  been  approved  for 
COMMODORE'S  ENCYCLOPEDIA  OF 
SOFTWARE  as  well  as  many  other  directories. 
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PERSONAL  FINANCE 
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B.  SKY  CALC  Resoll  Easy  (D>   $49 
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Home  Cat  (C) $22 
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Spmnvikf  J  A*- robes  (D) $33 

Softsync  Computer  Mre  kirac  |D)    $19 

Sofl&ync  Compulrr  Mechanic  (Cj    $16 

Creative  Car  Costs  |D, $13 

Creative  Car  Costs  (Cj $10 

Creative  Decision  Maker  ID)  - $13 

Creative  Decision  Maker  (C)  .., 10 

Hesware  Time  &  Money  Manager  ID)    $39 

Tnneworks  Dala  Manager  ID&CI $19 

CompuServe  Starter  Kit  (5  hrs)   $29 


M=tMAIIHM 


Epyn  Fun  wiih  Ail  (CT)  $27 

Epyx  Fun  with  Music  1CTI $27 

Hesware  Synlhesound  ICT) $33 

Hesware  Paintbrush  (CTI $19 

Spinnaker  Delia  Drawing  (CT)    $26 

Koala  SpiderEater $23 

KoaLa  Geometric  Designs ,  $23 

Koato  Crystal  Flowers $23 

Koala  Logo  Designs $29 

Delta  Music  (CT) $26 


H.»i.mt.iji 


Spinnaker  AIpKabel  Zoo  (CT)   $23 

Spinnaker  Cosmic  Lile  (CT)    $23 

Spinnaker  Facemaker  (CT) $23 

Spinnaker  Fraction  Fever  (CT)   $23 

Spinnaker  Kids  on  Keys  (CT)    $23 

Spinnaker  Kindercomp  (CT) $  19 

Spinnaker  Slory  Machine  (CTI    $26 

Spinnaker  Up  For  Gratis  [CTI    $26 

Spirraket  Delta  Drawing  (CT)    $26 

Creative  I  Am  Vow  M  I  (D) $19 

Crelive  I  Am  Youi  64  II  |D)    $19 

Hesware  Turtle  Graphics  II  (CTI    $39 

Hesware  Type  N"  Writer  (CI)    $26 

Delta  Music  (CT) S26 


LANGUAGES  &  UTILITIES 


Hesware  6o02  Pro  Devel  Sys(D)    $19 

Hesware  Hestnoit  64  (CT) $26 

Hesware  64  Forth  (CT) $4$ 

Acess  Sprilemaster  (D&C)    $23 

Timeworks  Programmer  Kits  I,  [I.  [II 

(D&C)  each  $19 

Blue  Sky  Ltsl  One  (D)    $79 

Blue  Sky  80  Column  (D) $29 

Blue  Sky  Graphic  Designer  (D)  $29 

Blue  Sky  64  Statistics  (D) $29 

Blue  Sky  Super  Basic  (D)  $29 

Blue  Sky  Add  On  aisic  (D)    $29 

Blue  Sky  Super  Copy  ID) $29 


BUSINESS  SOFTWARE 


Tolal  Business  3  6  (D) $65 

Total  Time  Mgmt  IDI  $25 

r.iMl  Fable  Mail  (D)    $1$ 

Total  Research  Asst  (D&C) $25 

Cymbal  General  Ledger  ID) $45 

Cymba"  Acct.  Receivable  (Dl $45 

Cymbal  Acer.  Payable  ID) $45 

Cymbal  Inventory  Control  (D) $45 

Cymbal  Invoice  Writer  (D)  ....... $45 

Epyx  Dragon  Riders  ol  Pern  (D&C)  ....  $25 

Bpyrf  Silicon  Warner  (CT)   $25 

Sega  Conyo  Bongo  (CTI    $25 

Inlocom  Enchanrer  (D)   $33 

Inloconi  Infidel  (D) $33 

Synapse  Blue  Max  ID&CI   $22 

SublogK  Pinball  (D&CI $20 

Hesware  Maze  Master  (CT) $26 

Broderbund  Choplitter(CT)    $27 

Epyx  PilstoplCTl $27 


COMMODORE  VIC  20 


PERSONAL  PRODUCTIVITY 


Creative  Home  Office  (D)    $22 

Creative  Home  Olfice  (C) $19 

Creative  Household  Finance  ID)  .......  $17 

Creative  Household  Finance  (C) $13 

Creative  Home  Inventory  (Dl    $13 

Creative  Home  Inveniory  (C)    $10 

Thorn  Music  Composer  (CT)   $25 

M  S  I  Prachcalc  Plus  |D)    $35 

M.S.I.  Fiachcak-  Plus  IT)   $33 

MSI  Praclicalc  (D)    $32 

MSI  Praelicalc  (T) $29 

Hesware  Synthesound  (CT) $19 

Heswate  Vie  Fourth  (CTI $39 

Hesware  Hes  Mori  (CT|    $26 

Cardco  Write  Now $27 

Hesw.ue  6502  Pro  DevSyl    $19 

Epyx  Fun  wild  Att  (CT)   $26 

Epyx  Fun  with  Musx'  (CT) $26 

Broderbund  Masterly^*  (CT)    $24 


EDUCATIONAL  SOFTWARE 


COMMODORE  VIC  20  Cont'd. 

EBBm 

Creative  Choplilter  (CT)    $19 

Epyx  Temple  ol  Apshai  (C) $24 

Sega  Congo  Bongo  (CT) $2$ 

Sega  Star  Trek  (CT)   $25 

Rock  Bottom 

Prices  on 
Peripherals! 

Vic  40  B0  Display  Manager  $69 

CM  Video  P,lk  80 $129 

Includes  Word  Manager  FREE 
Parallel  Prinler  Interface  $45 

cmana 

Hescard  Vic  5  Sbl $39 

HesModem  Vk  &  C64 $47 

CM.  Vk;.  Atari  $67 

Apple  $89 

BMC  8X80   $249 

GEMINI  10X $J69 

AlphaCom  40  Column    $99 

AlphaCom  80  Column    $169 

Vkt,  CM,  Atari 
Cable  wiih  AlphaCom  FREE 

CjtdcoLeller  Quality  LQI $499 

Cardco  Two  Color  Impact $119 

Ii'iM-Hi'iH 

lies  Modem  Vx  CM   $49 

Hes  Auto  Ans  Vic  CM $89 

USI  Aulodial       Answer  RS232c    $79 

USI  Autodial $69 

USI  CM  Ptam  Modem , . , ,  $39 


UI.»IH.I:M 


BMC  12"  Green  

BMC  12"  HiRes  Green 

BMC  12-  Amber    

BMC  12"  HiHes  Amber 
BMC  13"  Compose*  Color 
Monitor  cable  w.  above   .... 


ELECTRONIC  ARTS IM 

Home  Software  for  the  Commodore  64 


FREE  DISKETTE 

with  each  purchase  of  electronic 

arts  software 

COMMODORE  64 


Pintail  Construction  Set  (D| $40 

MULE(D) $40 

Wormt?(D| $35 

Archon  (D) $40 

Hard  Hat  Mack  (D|  $35 

Murder  on  the  Zindetneul  (D) $40 

The  Tesserae!  Strategy  (D) $40 

Word  Flyer  |OI $35 

The  Cut  &  Pasle  Word  Processor  ID)  . .  $50 

D  Bug  (Dl $35 

Axis  Assassin  10) T $35 

Musk-  Construction  Sel  (0) $40 

Financial  Cookbook  (D)  $50 

Dr  J  &  Larry  Bird  One  on  One  ID)   $40 


...  $85 

..$119 

$99 

..  $129 

..$239 
$10 


COMMODORE  DISK  DRIVES 


Concord  L>i*k  Drive    $279 

CiHiirnoduiv  \b1t       $269 


Th**B<iss  

3  Way  Grip  Stick 

MM-M.1 


.  $14 
$21 


$u<fh  A  Deal 

CALL  TOLL  FREE 
1 -800-431-8697 
Orders  Only! 

903  S.  Rural,  #102 
Tempe,  AZ  85281 

For  Information,  Customer 
Service  Release  Dates,  etc. 
Call 
602-955-3857 

(C)  ■  Tape  (D)  ■  Dilk  (CT)  •  Cartridge 

■TERMS  OH  OFFEH  II  you  find  a  price  for  any  software  or  peripheral  in  Ihisissue  thai  is  lower  lhan  our  advertised  price,  well  guarantee  10  beat  itl  Valid  only  on  product  in  similar  in  slock  conditions 
Valid  only  on  prices  appearing  in  prinl  in  this  issue, 

ORDERING  &  TERMS:  Send  cashier  check,  money  order;  personal/company  checks  allow  3  weeks  bank  clearance,  VISA/MaslerCard  accepted.  Provide  phone  number  with  Older.  SHIPPING: 
Software  add  $6 .00  (or  drsl  piece,  add  $1.00  each  additional  piece.  Hardware  add  31.  or  $10  00  whicheyet  is  iirealei   Returns  must  haue  oulhotiialton  number  (call  602  968 -9 1 28)  lor  aulhonzalion 

number)  All  relumed  merchandise  subject  to  leslix  kirvjhr  and  mini  come  wi  I  hall  ordinal  packaging.  No  returns  allowed  alter  30  days  Irom  shipping  date.  Price  sate  (or  cash;  VIS  A  and  MasterCard 
add  3%.  Prices  subject  to  change  without  notice.  All  products  subject  to  availability  Irom  manufacturers  and/or  suppliers  All  prices  in  U.S.  dollars. 


Hesware  5pinnakef 

KinderComp  <CT|   $23 

Slory  Machine  (CT)    $23 

Face  Maker  (CTI  $23 

Kids  On  Keys  (CT)   $23 

AJptabtl  Zoo  (CT) $23 

Hesware  Turtle  (CT)  $26    Mil ':W  J  JlMd  =f»hiMJ I 


Numeric  Keypad  CM    $29 

Graphic  Prinler  Interlace    $69 

I  r.  mioiny  Priniei  Interlace   $39 

Commodore  M  S  Sbl  , , $49 

16K  Board  $53 

Cassette  tnlerlace    $27 


Creative  Pipes  (C) $19 

Creative  Spills  &  Fills  (C)  $19 

Creative  Hangman  &  Hangmath  (C)    ...  $10 
Creative  Math  Hurdle  fir  M  Maie  (C)  . . .  $10 


One  Socket $19 

Two  Socket $39 

10  Socket    $79 


Getting  Started 
With  A  Disk  Drive 

Part  5 : 
Questions  And  Answers 

Charles  Brannon,  Program  Editor 


In  the  conclusion  of  this  series,  we  answer 
several  common  questions  about  disk  drives 
and  disk  files. 


%An  Can  you  use  CMD  with  disk  files? 

4Va  Yes.  CMD  is  used  to  divert  output  from  the 
screen  to  another  device.  It  is  usually  used  with  a 
printer  to  make  listings  (OPEN  4,4:CMD4:LIST). 
After  a  CMD,  everything  that  would  go  to  the 
screen  ends  up  going  to  the  device  you  OPENed. 
For  example,  a  series  of  PRINTs  can  be  sent  either 
to  the  screen  or  to  the  printer  with  CMD. 

Many  people  don't  know  that  CMD  has  the 
same  syntax  as  PRINT#.  For  example,  you  can 
use: 

CMD  4,"THIS  IS  A  MESSAGE" 

CMD  4  by  itself  will,  therefore,  send  a  blank  line, 
as  well  as  direct  output  away  from  the  screen.  If 
you  have  a  disk  file  opened  for  writing,  you  can 
use  CMD  to  have  all  PRINT  statements  write  to 
this  file.  Just  remember  thai  the  blank  line  put  out 
bv  CMD  will  give  you  problems  if  vou  try  to  read 
the  file  with  IN PUT#. 

To  cancel  a  CMD  (highly  recommended  be- 
fore you  CLOSE  a  file),  use  PRINT#,  as  in 
PRINT#4:CLOSE  4.  This  also  insures  that  every 
last  drop  of  your  file  is  written  out. 
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t&Ku.  What  do  I  do  if  a  program  crashes  and  the 
red  "busy"  light  is  still  on? 

Xaia  Be  careful.  The  program  may  have  OPENed 
a  file  for  writing.  You  need  to  properly  CLOSE 
the  file  to  prevent  a  bad  directory  entry.  Use  this 
one  line  to  make  sure  all  files  are  closed: 

CLOSE  15:OPEN  15,8,15:CLOSE  15 

Be  aware  that  OPENing  or  CLOSEing  the 
command  channel  will  disrupt  any  OPEN  files, 
forcing  them  CLOSEd. 

If  a  file  isn't  closed  properly,  it  appears  on 
the  directory  with  an  asterisk  next  to  the  filename. 
To  clear  it  up,  enter: 

OPEN  15,8,15,"V":CLOSE  15 

Do  not  attempt  to  scratch  such  a  file. 


^Mb  Why  can't  I  read  my  friend's  disk  on 
my  1541? 

£%m  Even  though  Commodore  drives  4040,  1540, 
and  1541  are  supposed  to  be  read/write  compati- 
ble, differences  exist.  First,  most  drives  deviate 
from  the  ideal  speed  of  300  RPM  (revolutions  per 
minute).  Depending  on  the  extent  of  the  deviation, 
this  can  cause  either  trivial  problems,  such  as  a 
retry  {the  head  attempts  to  reread  a  sector  that  it 


COMMODORE  OWNERS . . . 

there  is  no  need  to  spend  thousands 
of  dollars  for  a  new  business  computer! 

Nor  is  there  need  to  go  through  the  hassle  and 
expense  of  learning  a  complicated  new  system. 

An  easy  expansion  will  convert  your  Commodore"  Into  a  powerful  business  computer  that  will 
have  you  running  productive  business  programs  as  quickly  as  1 ,  2  . . .  plug  it  in  and  grow! 

Begin  with  the  reliable  new  MSD"  Super  Disk  . . .  the  only  disk  drive  readily  available  for 
Commodore  computers.  Gain  instantaneous  random  access  to  programs  and  information,  and 
save  valuable  time  in  executing  your  programs. 

Next . . .  interface  the  new,  state-of-the-art  dot  matrix  printer . . .  the  Panasonic"  KX-P1060  for 
hard  copy  that  will  support  and  document  your  task. 

Add  expansion  modules  for  greater  power  and  up  to  64K  memory.  Our  terminal  emulators  allow 
you  to  communicate  with  other  computers,  such  as  the  SOURCE.  DOW  JONES  or  COMPUSERVE. 

Complete  the  expansion  process  with  software  applications  to  address  accounting,  word 
processing,  and  other  business  requirements. 

Don't  spend  thousands  of  dollars  on  a  complicated  PC  . . .  expand  your  Commodore  and  get  down 
to  business.  The  expansion  is  so  easy  you  will  be  up  and  running  the  same  day. 

Call  or  come  by  today  to  learn  more  about  Your  Business  Software's  "Expand  Your  Business  Plan." 


Panasonic  KX-P1060 
Super  Disk 
Dual  Super  Disk 
VTE  40  Terminal  Emulator 
CTE  Terminal  Emulator  Cassette 
CTE  Terminal  Emulator  Diskette 
Expansion  RAM    3K 
BK 

16K 

24K 

SOFTWARE 

Accounts  Receivable/Billing 

Accounts  Payable/Checkwrlting 

General  Ledger 

Inventory  Management 

Payroll 

Any  3  of  the  above  programs 

Calc  Result 

Home  Accounting  Plus 

Bank  Street  Writer 

Typing  Tutor 

Speed  Reader  II 

First  Class  Mail 

Oracle  {data  base) 

Tax  Advantage 

Multi  Plan 

Quick  Brown  Fox 


$399.00 

375.00 

695.00 

49.95 

9.95 

17,95 

35.95 

49.95 

79.9S 

129.95 

69.00 
69.00 
69.00 
6900 
69.00 
199.00 
139.00 
69.00 
54.00 
22.00 
64.00 
44.00 
139.00 
54.00 
89,00 
64.00 


SUPER  DISK  SPECIALI 

Single  Disc  Drive  Dual  Disk  Drive 

plus  the  faster  plus  the  faster 

IEEE  Interface  IEEE  Interface 

$429.00  $749.00 

TO  ORDER,  CALL  TOLL  FREE 
800/527  5341 

Texas  and  Canada  214/526-3348 

MOST  ORDERS  SHIPPED  SAME  DAY! 
FREE  SURFACE  FREIGHT 

UPS  Blue  Label  add  $3.00 


Prices  are  for  prepaid  orders  only  and  reflect  a 
cash  savings:  send  a  cashier's  check  or  money 
order.  Charge  card  orders  are  slightly  higher. 
All  items  subject  to  availability  and  prices 
subject  to  change  without  notice.  Overseas 
orders  do  not  include  shipping  and  handling. 

®  signifies  manufacturers'  trade  marks 
and  copyrighted  products. 
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couldn't  read  on  Hie  first  try),  or  it  can  make  a 
disk  totally  unreadable, 

A  sector  on  a  disk  can  hold  256  bytes,  and 
has  a  finite  area  on  the  disk's  surface.  The  head 
has  to  be  synchronized  with  the  speed  of  the  disk 
in  order  to  write  to  a  selected  sector.  It  is  aided  in 
this  bv  timing  information  written  to  the  disk 
when  it  was  formatted  (NEWed).  The  physical 
area  of  a  sector  is  determined  by  the  speed  at  which 
the  disk  turns. 

If  the  disk  turns  faster  than  it  should,  the 
data  overflows  the  sector,  overwriting  nearby 
sectors  and  the  timing  data.  If  the  disk  turns  too 
slowly,  it  does  not  fill  up  the  sector.  The  data  may 
also  be  written  too  compactly  to  be  readable. 

You  may  not  notice  if  your  drive  is  too  fast  or 
too  slow,  since  the  speed  at  which  it  reads  or  writes 
usually  matches  the  speed  at  which  the  disk  was 
formatted.  "Fast"  and  "slow"  are  relative  to  indi- 
vidual drives,  not  to  300  RPM. 

A  fast  drive  may  miss  the  more  compact  in- 
formation written  by  a  slower  drive.  It  goes  so 
fast  the  slower  data  is  seen  as  a  "blur."  The  faster 
drive  may  also  have  trouble  writing  to  the  disk, 
since  the  liming  (formatting)  information  is  simi- 
larly compacted.  If  you  do  manage  to  write  to  the 
slow-formatted  disk,  the  faster  drive  cannot 
squeeze  its  information  into  the  sectors  created 
on  the  slower  drives.  In  the  worst  case,  the  faster 
drive  overwrites  the  timing  information,  making 
one  or  more  sectors  totally  unreadable  on  either 
drive. 

Now,  if  you  bring  a  disk  formatted  on  a  fast 
drive  to  a  slower  drive,  things  aren't  as  bad.  The 
slower  drive  can  easily  read  the  longer  sectors 
created  bv  the  fast  drive.  When  it  writes  to  the 
disk,  it  just  doesn't  use  al!  the  physical  space  allo- 
cated by  the  fast  drive.  But  when  you  bring  the 
disk  back  to  the  fast  drive,  it  may  not  be  able  to 
read  the  sectors  written  bv  the  slower  drive. 

There  are  other  potential  variations,  such  as 
head  alignment  and  DOS  versions.  In  theory. 


Free  Disk  Program 

SunSoft's  1541  Disk  Backup  progiam  copies  almost 
any  disk.  Its  FREE  when  you  buy  any  disk  program  irom 
out  tree  catalog,  now  featuring  GETCHA!  and  CIPHER. 
GETCHA1  gives  you  live  levels  ot  play  on  a  random 
playfield  Get  the  dollars  betore  the  taxman  gels  them— 
ot  you!  Music  and  graphics,  [oi  Corn.  64.  tape  or  disk: 
$14.95  And  now.  a  progiam  lor  people  who  need  (shh!) 
secunly.  CIPHER  sees  to  it  lhat  your  computer  files  are 
accessible  only  to  you  Foi  64,  on  disk:  $14.95 


Box  99 

Alturas,  FL 
33820 


syOsdft 


(FL  Res.  add 
5%  sales  lax) 


most  Commodore  drives  should  be  compatible, 
but  beware  of  the  variations.  It's  always  safe  to 
try  to  read  any  disk  on  any  drive,  but  beware  of 
writing.  If  you're  not  sure,  try  to  write  with  your 
friend's  drive  on  a  disk  formatted  on  your  drive. 
Then  try  out  the  file  on  your  drive  again.  This 
way,  you  can  confirm  if  disk-swapping  is  safe  for 
both  of  you. 


Wi>  How  many  files  can  I  have  OPEN  at  once? 

x\m  The  operating  system  (OS)  permits  you  to 
have  up  to  ten  files  open  simultaneously.  How- 
ever, each  file  must  use  a  different  disk  buffer  in 
the  OPEN  statement.  The  disk  buffer  is  internal 
to  the  disk  drive,  and  accumulates  data  until  it 
holds  a  block  (256  bytes)  of  data.  The  buffer  then 
transfers  data  to  a  disk  sector  (in  a  write  operation) 
or  to  the  computer  (for  reading). 

The  OPEN  command  specifies  the  disk  buffer 
to  be  used  as  the  secondary  address: 

OPEN  fileiu(m,devnuM, buffer 

filenum -File  number  used  in  INPUT#,  GET#, 
PRINT#,  and  CLOSE  commands. 
devnum  -  Hardware  device  number  (8  for  a 
single  disk  drive) 

buffer  -  A  secondary  address  from  2-14 
specifying  which  buffer  to  use.  Buffer  number 
1  is  reserved  for  program  saves  and  loads. 
Secondary  address  15  is  reserved  for  the  com- 
mand channel. 

If  you  have  more  than  one  disk  file  open 
simultaneously,  each  file  must  use  a  unique  buffer, 
or  data  will  become  garbled. 


Q.: 


How  do  I  make  a  backup  copy  of  a  disk? 


m\m  It's  important  to  make  a  backup  copy  of 
commercial  software.  That  way,  you  can  use  the 
copy,  and  store  the  original  in  a  safe  place.  If  any- 
thing goes  wrong,  you  can  just  make  another 
working  copy.  Unfortunately,  most  software  is 
copy- protected,  to  prevent  illegitimate  copies 
from  being  made. 

Even  if  the  software  isn't  protected,  there  are 
no  built-in  commands  to  copy  an  entire  disk.  It's 
easy  enough  to  LOAD,  then  reSAVE  BASIC  pro- 
grams, but  machine  language  programs,  sequen- 
tial data  files,  relative  files,  and  mysterious  USR 
files  are  far  more  difficult.  Your  best  bet  is  to  use  a 
backup  program.  For  your  convenience,  we  have 
reprinted  Harvey  Herman's  single  drive  backup 
program.  It  works  on  both  an  expanded  VIC  and 
the  64. 

See  program  listing  on  page  163.  <gj 


A  Perfect 


for  Your  64 


Sof t  People's 

TaxWare 


TAX  DEDUCTIBLE 

AS 

Tax  Preparation 

aid 


dMOS 


Every  American  has  to  pay  taxes. 
Why  pay  more  than  you  should? 

Willi  TnxWurc.  ii  year  round  record  keeping  system. ..you  store  all  lax  related  in  To  mi 
electronic  cupicH  of  I  lie  iiimmI  popular  lux  forms.  Willi  'in  \  Ware  you  nmy  cnlrululc  lux 
tint'  at  any  time.  Make  tmcflmugc  mi  one  fcirni  tintl  nil  other  form*  ore  n-coniputed, 

•  Ymi  fun  tin  endless -what  ifn%  I.e.  "what  if  your  spouse  takes  n  job",  "wlim  if 
I  Hell  inv  slmk".  "what  is  ihe  credit  fur  child  cure".., 

"  Ytm  nmy  tag  nny  item  belonging  to  Imsound/wiff  or  joint  unci  see  tht>  different 
ln\  consetpicuccs. 

•  Handles  itemized  deduction*.  Income  live raging,  dividends*  stocks, 
Ht'lf-t'ttipltM  mem.  reals,  royuhir*.  ehildciirc.  marriage  deductions  und  more... 

•  (ircult*  lists  iim  you  need  for  income,  medical  deductions,  lit  A  pavilions  or 

anything  else. 

•  Lists  art1  easily  display  til  anil  updated  totals  nuiomntif  ally  transferred  lt>  lht>  proper 
la\  forms. 

■  Bundles  nil  popular  fornix  1 010. Schedule  A.  K.  G.  Schedule  0.  C.i.  D.  K.  W.  2111. 

■  An  Annual  Ipdnie  I'hin/imd  or  Mujnr  I  pilule  iTsign  if  it'n  in  m^  laws  change  will  he 
available  fur  the  nevl  veur. 


Meet  ihe  Tough  Manager. 

The  Brut  data  base  managing  tool  fur  the  collection. 
arrangement  ami  display  of  alphanumeric  ditto. 
'I'he  ii  n  it  pit'  pniteru  matching  and  Ken  rvhing 
capabilities  uiiike  dMOS  the  best  researching 

|)i ! iu ri i in  in  ui lii Mr. 

Pattern  matching: 

•  Can  he  used  mi  either  or  hath  sides  nf  tin'  siring. 

•  Map  lenrch  tei'hnitpie  to  achieve  u  "logical  AND", 
while  searching  la-tween  fields, 

•  l)i*pluy  either  those  record*  faund  hy  u  search  ar 
those  NOT  round. 

Printer  control) 

•  Itcurrnnge  ami  su  press  Held-. 

•  S  a  press  field  lilies.  O  tr%  ^%  A  I 
IllNCrl  short  (10  ehnrnrter|  IC Vis.       T  jjl''' 

-  Selectively  print  records.  ^^  ^P 


Phone  Boss" 

\  powerful  and  dedicated 
Data  Manager. 

Designed  lo  stare  and  organize  your  perstaud 
phone  listing)..  The  I  Wr  has  complete  control      — ! 
of  lr>  category  titles  and  entries. 


Missing  Key 

The  Key  you've  looked 
for,  but  wasn't  there. 

After  programming  foe  hours  you  press.  KLN  for 
n  final  check  of  your  work  -  the  computer  locks  up. 
Nothing  appears  on  I  lie  screen .  You  press  HUN/STOP 
...mailing  ■  you  press  ItL'STOKIv... nothing  -  you  look 
for  the  missing  key  hut  it  isn't  there.  Now  you  don't 
have  to  turn  off  your  computer  and  lose  hours  of  work. 
Add  the  Missing  Key: 

•  Press  this  key  and  the  computer  resets  ititelf 

from  any  kind  of  tock-np.  yj 

•  Load  iiikI  run  the  program  included  will)  the  / 
Mining  Key  ami  ynur'BASN I' program  is  restored/ 

•  Takes  not  hill"  awav  from  vour  eonipuler.  neither 


memory  or  u  plug-in  part. 

'  Fits  onto  your  Commodore  64  keyboard  (No  wiriu; 
I"  add).  &£%£%{% 

Will  not  void  vour  (IBM  warranty,    j     JUH 


$2995 


Softloc 


y  Options  availuhle: 

1.  Add  it  new  listing  in  directory 

2,  (lliange  n  lisllug  now  in  directory. 


The  Program  Security 
System  for  the  Commodore  64 


I.  I.i-i  a  plionctf,  giving  u  name, 


6.  Change  the  list  of  categories. 

7.  Write  the  directory  onto  u  disk. 
H.  tteud  a  directory  from  disk. 

f>.  Kxll  the  progruui. 


$2995 


l^ick  up  yotir  person  11 1,  financial  or  business  records, 
.'1  Types  of  protectant: 

■  7  Digit  access  code  jl   ^^  ^^  — _  _ 
•  Kneodes  program                                ^  TJ  I  H  3 

■  Mollified  diskette  d  i  recto n  ^m%M 


Softpeople,  Inc 


"Connecting  People 
With  Groat  Ideas" 


2042  Marshall  Ave. 

St.  Paul,  MN  55104 

(612}  644-1551 


Credit  Card 
Order  Now 

1-800-447-3273 

Dealers  inquires  fir 
Special  P.  O.  P.  Packages 
&  Prices  avaiiabie 


The  Inner  World 
Of  Computers 

Part  5:  Small  Is  Beautiful 


Tom  Prendergast 


In  this  final  installment,  an  old  programming 
trick  is  combined  with  the  new  skills  de- 
veloped in  the  previous  four  installments.  The 
author  includes  a  powerful  technique  that 
demonstrates  how  so  much  can  be  achieved  in 
one  of  the  smallest  computers — the  VIC-20. 


I    think  the  VIC-20  is  the  greatest  thing  since 
ELFS  {the  tiny  ELectronic  FingerS  that 
toggle  the  even  tinier  bit-switches  inside 
your  computer).  It's  inexpensive,  easy  to 
use,  and  fantastic  for  games  and  graphics. 

The  VIC  does  have  its  limits,  though.  For  one 
thing,  the  large  screen  characters  and  short  lines 
(22  characters  across)  make  word  processing  an 
awkward  task.  A  few  lines  on  a  typewritten  page 
fill  up  the  VIC  screen. 

Another  handicap  is  the  small  amount  of 
memory.  You  get  only  3583  bytes  on  the  unex- 
panded  VIC.  This  is  still  a  couple  of  thousand 
more  bytes  than  the  fabled  Univac  and  ENIAC— 
the  big  mainframes  of  30  and  40  years  ago  that 
filled  up  whole  buildings  and  brought  on  the  age 
of  computing.  But  unless  you're  sentimental  about 
such  things,  you're  not  going  to  be  happy  for 
long  with  only  3.5K  of  memory. 

After  I'd  run  out  of  memory  on  too  many 
programs  that  I  considered  very  small,  I  bought  a 
Super  Expander.  Not  only  does  this  cartridge 
make  it  easy  to  do  HIRES  (High  RESoIution 
graphics)  bv  adding  commands  like  DRAW, 
PAINT,  POINT,  and  CIRCLE,  but  Commodore 
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also  adds  another  3K  of  memory  to  give  you  a 
total  of  6519  RAM  bytes. 

Sul  despite  its  shortcomings,  the  VIC  is  a  pow- 
erful computer.  Big  isn't  necessarily  better,  and 
you  can't  always  measure  a  program's  value  by 
its  length  alone.  There  are  few  things  that  you 
can  do  on  expensive  machines  that  you  can't  do 
on  a  VIC.  It  takes  some  doing,  maybe,  and  it  may 
not  be  as  easy,  but  it  can  be  done. 

If  you  counted  every  letter  of  every  word  on 
this  page,  including  spaces,  you'd  find  there  were 
about  6000.  That's  6000  bytes  (every  letter  or  space 
uses  a  byte  of  memory) — -not  counting  pointers 


4H 


IF   ATTRIBUTE  APPLIES 
PUT  W%       IN   ALPHA   CELL 
IN   ROW  OPPOSITE   NAME   # 


H^B^ 


a  e c  r- m  r  ■:; hi  i  -  t  k  l  i-i \  i  o 


■ 


"Binatnite"  gives  you  several  options  for  displaying  data. 
Here  the  information  is  shown  in  the  table  format . 


NOW  THE  BEST  COST  LESS 


DUNGEONS  OF  DEATH  -  A  serious 
role  playing  game  for  up  to  6 
players  You  get  a  choice  of 
race  and  characters  that 
grow  from  game  to  game. 
You  also  get  a  graphic  maze 
and  a  15  page  manual. 

Available  On:  IHS80C  IIK  EXT,  EMD64.  WC2D 13K 
IBMPC.  IRS80C  W  MCIO  16K 


TAPE  SI 4.95 


DISK  SI9.95 


QUEST  ■  A  different  kind  of 
Graphic  Adventure,  it  is 
played  on  a  computer 
generated  mape  of  Alesia. 
You'll  have  to  build  an  army 
and  feed  them  through 
combat,  bargaining,  explo- 
ration of  ruins  and  temples, 
and  outright  banditry!  Takes 
2-5  hours  to  play  and  is 
different  each  time 

Available  On:  TfiSBOC  m.  CUD64.  V.CH)  13K,  MCIO 
1BK.  TI99  |EXT.  BA3ICI.  IBMPC 

TAPE  114.95  DISK  116.95 


WIZARDS  TOWER  -  A  fantasy 
game  played  on  a  map  of 
forests  and  dungeons  -  with 
dragons  and  wizards  to  kill 
Similar  to  QUEST  and  fun  for 
adults,  but  a  little  simpler 
and  playable  for  the  younger 
set  (8  -  60). 

Available  Ort  TRS8CC  16K  EXT,  CMDM,  VIED  13K, 
TI99,  IBMPC 


BAG-IT-MAN  ■  The  ultimate 
arcade  game  for  TRS80C  or 
MCD64  This  one  has  three 
screens  full  of  BAGS  OF 
GOLD.  CARTS  &  ELE- 
VATORS TO  RIDE  IN.  MINE 
SHAFTS,  and  TWO  NASTY 
GUARDS.  Great  sound  and 
color  and  continuous 
excitement. 

AvailaWE  On.  IRS80C  32K,  CM064 

TAPE  119.95  DISK  124.95 


STARFIRE  II  you  enjoyed 
StarRaiders  or  StarWars. 
you  will  love  Starfire.  It  is  not 
a  copy,  but  the  best  shoot- 
em-up.  see  them  in  the 
window  space  game  on  the 
CMD64  or  TRS80C.  The 
fantastic  graphics  will  put 
you  right  in  the  control  room 
as  you  hyperspace  from 
quadrant  to  quadrant 
fighting  the  aliens  and 
protecting  your  bases. 


Availabft  On:  TRS80C  16K.  CMOH 
TAPE  $19.35 


TAPE  $14.95 


DISK  $19.95 


DISK  $24  95 


PYRAMID  ■  ONE  OF  THE  TOUGHEST 
ADVENTURES.  Average  time 
through  the  pyramid  is  50  - 
70  hours.  Clues  are 
everywhere  and  some 
ingenious  problems  make 
this  popular  around  the 
world. 

Available  On  IRSaOC  16K,  CMD64  MCI016K  IIMEX 
IBM  PC.  TI99.  VIC20  I3K 

TAPE  $14.95  DISH  119.95 


AARDVARK  offers  over  120  original  high  quality  programs. 
Send  one  dollar  for  a  current  catalog  and  receive  a  S1 .00 
gift  certificate  good  towards  your  next  purchase. 


Authors -AARDVARK  pays  top  dollar  for  high  quality 
programs.  Send  a  copy  today  for  a  personal  review  and 
editorial  help. 


TO  ORDER:  Send  amount  indicated  plus  $2.00  shipping,  per  order.  Include  quantity  desired  and  your  preference  ol  tape  or  disk. 
Be  sura  lo  Indicate  lype  of  system  and  amounl  of  memory.  When  using  charge  card  to  order  by  mail,  be  sure  to  Include  expiration  dale. 


CHARGE  CARDS 
WELCOME 


1-313-669-3110 


PHONE  ORDERS  ACCEPTED 
B:00  «.m    to  B:00  p.m.  EST,  MONFRI 


AARDVARK  rfctia*  Softetxvie 


2352  S.  COMMERCE  •  WALLED  LAKE,  Ml  4B088  ■  (313|  669-3110 


CMD64    /    TRS80C    /    IBMPC    /    VIC20    /    TI99 


and  such — just  to  store  this  page  in  RAM.  That's 
a  lot  more  memory  than  you  have  on  the  unex- 
panded  VIC.  How  can  you  even  begin  to  process 
that  much  data? 

You  could  feed  the  data  in  from  tape  a  few 
bytes  at  a  time,  I  suppose,  process  it,  and  then 
pull  in  some  more  data.  But  that  would  take  a  lot 
of  time  and  tape.  You'd  also  be  using  up  most  of 
your  memory  for  tape  handling  and  "overhead." 
So  what  can  you  do? 

For  an  answer,  let's  look  back  at  the  small 
memories  on  the  early  mainframes.  One  reason 
for  those  small  memories  was  the  cost — something 
like  $10  a  bit  (not  a  byte,  a  bit).  This  meant  it  often 
was  cheaper  to  pay  people  to  file  things  manually 
rather  than  to  use  expensive  computer  memory 
to  store  it.  So,  early  on,  a  technique  called  bit  in- 
dexing was  developed,  in  which  one  bit  did  the 
work  of  a  byte — or  even  hundreds  of  bytes. 

Computers  have  added  a  lot  of  memory  since 
then,  but  the  basic  way  a  computer  works  hasn't 
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Creating  a  data  tabic  with  "Binamite." 

changed.  That's  why  this  old  trick  works  as  well 
today  as  it  did  then. 

Dil  indexing  is  a  kind  of  shorthand,  with  each 
bit  representing  some  unit  of  information,  like  a 
name  on  a  list.  If  the  bit  is  turned  on,  that  name  is 
on  the  list.  And  since  we  already  have  our  list  on 
paper,  why  not  keep  it  on  that  same  piece  of  paper 
and  use  a  form  of  bit  indexing  to  process  it  on  the 
VIC.  By  doing  this,  we  can  handle  the  equivalent 
of  thousands  of  bytes  of  data  without  eating  up 
precious  memory. 

This  isn't  a  big  deal  so  long  as  the  data  we 
want  to  process  is  in  an  organized  list  already  and 
we  just  have  to  write  some  numbers  beside  the 
items  on  the  list. 

Let's  say  you're  in  the  mail  order  business 
and  want  to  send  catalogs  or  a  special  mailing  to 
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customers,  but  you  want  to  rank  them  by  the 
amount  of  money  spent  with  you,  by  credit  rating, 
your  best  customers.  You  have  a  list  of  all  your 
and  so  on.  You  probably  have  all  the  information 
you  need  in  the  customer  file,  along  with  the 
amounts  billed  and  to  be  collected  (accounts  re- 
ceivable). Of  course,  you  don't  want  to  disturb 
that  file,  but  going  through  it  can  tell  you  what 
items  your  customers  usually  order,  their  fre- 
quency of  ordering,  and  how  fast  they  pay  or 
don't  pay. 

The  files  are  probably  in  alphabetical  order. 
Later  on,  you  can  arrange  the  list  for  mailing  by 
zip  code  or  some  other  way,  but  to  demonstrate 
the  program  we're  using,  "Binamite,"  let's  just 
take  the  first  15  names  out  of  the  file,  write  them 
on  a  sheet  of  paper,  and  number  them.  (Remem- 
ber, by  using  paper  instead  of  the  computer,  we 
save  a  byte  for  every  letter.) 


Mary  Contrary 
Mary  Lamb 
Little  Boy  Blue 
Ms  Muffit 
Fifth  Name 
Sixth  Name 
Seventh  Name 


and  so  on  until  we  have  14  names. 

Next,  we  want  to  know  the  type  of  items 
they've  bought,  so  we'll  know  what  to  put  in  our 
catalog.  Let's  call  these  items  "attributes"  and 
assign  letters  of  the  alphabet  as  labels,  like  this: 

A)  Sports  Clothing 
It)  Bats  and  Balls 

C)  Caps 

D)  Down-Filled  Jackets 

E)  Extra-Large  Sizes 
FJ  Feminine  Finery 
G)  LO-Gallon  Hats 
H)  Helmets 

I)  Insulated  Boots 

J)  Junior  Sizes 

K)  Skis 

L)  Lambswool  Jackets 

M)  Muffs 

N)  Notions 

O)  Ozoneware 

These  can  be  any  length  since  we're  keeping  them 
on  paper  instead  of  in  VIC  memory.  They  don't 
have  to  match  the  letters  alphabetically,  either:  B 
doesn't  have  to  stand  for  Bats  and  Balls,  or  C  for 
Caps.  It  just  makes  it  easier  to  remember  what 
letters  we've  assigned  to  what  items  when  we  ask 
Binamite  later  to  match  them  against  the  names 
on  the  list. 

Now,  with  all  the  paperwork  out  of  the  way, 
let's  build  the  program  up  bit  by  bit. 


•TLs  you  might  expect  from  the  name,  Binamite 
works  on  a  binary  system.  You  may  remember  a 
short  program  in  last  month's  installment  that 


A  Basket  Full  of  Software  Values 

at  Chick-Size  Prices? 

Eggs-Actly! 


FREE 


WRITE  FOR  FREE  Cs, 
CATALOG  OF  VIC  20 
and  C64  PRODUCTS 

•  SOFTWARE 

•  HARDWARE 

•  PROGRAMMING  AIDS 

•  OPERATIONAL  AIDS 

•  SUPPLIES 

•  MEDIA 

•  BOOKS 
COMPATIBLE 

SYSTEMS 

INCORPORATED 

P.O.  Box  2070  •  Dept,  G 

Saratoga,  CA  95070 

(408}  255-2024 


1-800-638-2617 


ORDERS  ONLY! 

Information  and  in  Ohio  1-216-758-0009 


M.-F.  10  am-  10  pm 
Sar.  •  10  am  ■  5  pm 
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1541  Disk  Drive  $219  1702 

1530  Datascttc. t   59    1600  Modem $  59 

1526  Printer  100  cps $289    1520  Printer/Plotter S159 


Color  Monitor    $226 

1525  Printer  30cps $199 

1650  Auto  Modem $   89 


Assembler/Monitor, i  15 

Super  Expander...... $  15 

LOGO $  39 

PILOT .$  39 

CP/M  2.2 .,...$  59 

Intro  to  BASIC S  17 

Visible  Solar  System i  16 

Lararian ,(  18 

"liiti.iil  Spei Macular ,.$  16 

ZORK  1,11,111 $  25 

Suspended .. A  2  5 

Easy  Calc S  55 

Easy  Finance  l.ll,lll,IV,V 

*  17 

The  Manager $  JS 

General  Ledger $  35 

Accounts  Receivable $  35 

Accounts  Payable, $  35 

Payroll 1  35 

Inventory .,,,.$  35 


COMMODORE  64  $219 

Easy  Script , )    35 

Easy  Spell i    17 

SPREADSHEETS 

Calc  Result $109 

Calc  Result  Easy $   65 

Mulliplan $   75 

Omni  Calc A   39 

WORD  PROCESSING 
Word  Pro  3+  with  speller 

$  59 

PaperClip $  85 

Script  64 S  72 

Mirage  Concepts $  79 

DATA  BASE  MANAGERS 

Delphi's  Oracle $109 

Mirage  Concaptt S  79 

PROGRAM  GENERATORS 

The  Last  One ..$   72 

Codcwriter %   65 


HOME  FINANCE5 

Home  Accountant 4  49 

FCM $  39 

Tax  Advantage $  45 

MONITORS 

BMC  green  screen, ........4  79 

BMC  amber  screen S  89 

BMC  compojitt  tolor...-$219 

PRINTERS 

Gemini  10X  with  Cardco 

interface S329 

Gemini  I5X S3B9 

SPECIALS 

Koala  Pad  Touch  Tablet 


Smart  64  Terminal $ 

Micro  Pak  Paper S 

Disx  File  70 % 


I  Wi  carry  a  complete  Una  of  Quality  Commodore  related  product!  including  thu»  by:  Timaworkj,  Spinnaker,  Epyx,  Siarra. 
I  HES  and  Cardco,  Evan  if  not  listed,  wa  probably  have  it.  at  lha  loweil  price  pouible,  SEND  FOfl  OUR  CATALOG  I 
I  MOST  ORDERS  SHIFTED  WITHIN  4S  HOUR51  All  pri< •,.-.  include  cash  dilcuunl.  VISA/MC  ordeil  accaplad  ■  add  1SV 
I  C.O.D,  orderi  add  S5.00.  For  quickest  dalivary  land  bank  check  or  money  ordar.  All  talai  are  final  ■  detective  merchen, 
I  dila  exchanged  rnr  uma  product  only,  Sh,pp,rtg  add  J\  4$2.dO  minimum!.  Ohio  cultomafi  add  5G\  tale*  tax.  Pricai  bS 
Levailability  >ub|ect  to  chanp*. 


1309  Boardman-Poland  Rd.,  Poland,  OH  44514 


converted  binary  numbers  (l's  and  O's)  to  decimal. 
That  program  was  an  exercise  for  this  month's 
program,  because  we're  using  basically  the  same 
algorithm  for  Binamite. 

In  last  month's  program,  we  input  the  binary 
digits  in  that  conversion  program  as  a  Airing  in- 
stead of  a  number.  Ordinarily,  the  computer  can't 
use  a  string  to  do  arithmetic  because  the  digits  are 
seen  as  characters,  not  as  numbers. 

However,  if  you  ask  for  the  VALue  of  a  string, 
the  computer  will  start  from  the  left  and  convert 
the  string  digits  to  a  number,  (If  it  finds  a  letter  or 
a  graphic  that's  not  a  number,  it  stops.)  Suppose 
you  have  a  string  like  this: 

BS  =  "101B" 

If  you  ask  the  computer  for  the  VALue  of  B$,  you'll 
get  this: 

?VAL(BS) 
101   [the  letter  H  is  ignored] 

We  still  have  to  convert  the  binary,  because  the 
computer  treats  that  101  as  a  decimal  number  101, 
not  as  a  binary  5.  So  we  use  the  MIDS  function  to 
extract  one  digit  at  a  time  and  multiply  the  VALue 
of  the  1  or  0  by  its  power  of  two.  All  of  the  place 
values  are  then  added  together  to  get  the  decimal 
equivalent  of  the  binary  string,  B$: 

MIDS(BS,1,1)  =  "1" 
MID$(B$,2,1>  =  "0" 
MIDS<B$,3,1»  =  "1" 

Placepower:  212     211     2l0 
B$:     1         0         1 

1*2  2=4  (i  multiplied  by  the  second  power  of  2) 
0*211  =  0  (0  multiplied  by  the  first  power  of  2) 
l*2t0=  1  (1  multiplied  bv  the  zero  power  of  2) 
4+0+1=5 

In  the  program,  we  use  a  FOR/NEXT  loop  for 
MID$  manipulation  and  multiplication  of  the 
powers. 

1  o  give  you  some  hands-on  experience  this 
month,  we  will  take  you  through  the  creation  of  a 
program  step  by  step.  So  we're  going  to  type  in 
just  the  bare  bones  of  the  program  at  first,  and 
explain  each  line's  function  as  we  go.  Some  of 
these  lines  will  be  out  of  order  as  we  type  I  hem 
in,  but  the  VIC  will  automatically  rearrange  them 
in  the  proper  numeric  order. 

Here's  the  first  line  to  type  in: 

110  PRINT" ( RVS  5  NAME ( RVSjABCDEFGHIJKLMNO" 

The  letters  ABCD...up  to  O  identify  the  columns 
for  the  "alpha  cells"  (rows  of  little  boxes),  which 
correspond  to  our  list  of  attributes.  By  processing 
these  cells  instead  of  long  data  strings,  Binamite 
saves  you  lots  of  memory.  Each  name  has  a  row 
of  alpha  cells,  and  when  we  INPUT  a  dot — one 
byte — into  a  cell,  we  attach  that  column's  attribute 
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A,  or  B,  or  whatever,  to  the  name.  (Rows  read 
across,  columns  read  down.)  The  arrangement 
will  become  clear  after  we've  typed  in  the  neces- 
sary lines  for  a  trial  run. 

Line  120  is  where  we  INPUT  the  dots  (periods) 
to  fill  the  alpha  cells.  We  skip  a  cell,  leaving  it 
empty  (no  attribute),  with  the  space  bar.  We  can 
also  delete  a  dot  with  the  delete  key,  or  go  back 
and  fill  in  a  dot  with  the  cursor  left  key. 

Line  120  is  probably  the  trickiest  line  in  the 
whole  program  because  we  have  to  first  print  a 
row  of  alpha  cells  (using  15  shifted  L  graphics), 
then  bring  the  cursor  left  17  places  so  that  it  will 
be  flashing  and  ready  for  INPUT  at  the  first  alpha 
cell  (Column  A). 

120  INPUT"  #(3  SPACES ) { RVS } LLLLLLLLLLLLLL 
L{17  LEFT}"?B$:L=LEN(B$T"~  — 

Now  we  get  to  the  real  meat  of  the  program — 
converting  the  string  of  dots  we've  just  INPUT, 
13$,  to  binary,  then  to  a  decimal  VALue  we  can 
AND  later: 

130  XP=L-l:FOR  I=L  TO  L:DMS=MIDS (BS , I , 1 ) : 
IF  DM$  >  "1"THEN  PRINT  " ( UP} " :DM$=" " : 
GOTO  120 

Note  that  we've  created  a  temporary  holding  string, 
DM$,  in  line  130.  This  makes  DM$  the  equivalent 
of  MIDS(B$,I,1) — that  is,  one  digit  of  binary  string 
B$,  in  place  I,  whatever  I  is  at  the  moment — and 
saves  us  line  space  because  we  don't  have  to  keep 
typing  "MID$(B$,I,1)"  all  the  time.  That's  DMS's 
only  function — a  temporary  string. 

If  you  input  anything  but  a  period  or  a  space, 
the  IF  throws  you  back  to  INPUT  (line  120). 

140    IF    DM$="."    THEN    DM$="1" 

Line  140  converts  a  dot  (period)  to  the  binary 
digit  1.  Skipping  a  cell,  or  wiping  out  a  dot  (with 
the  space  bar  or  delete  key),  gives  the  empty  space 
a  value  of  zero,  the  binary  digit  0. 

150    D=D+(VAL(DM$ )  ) *2tXP:XP=XP-l iNEXT 

Line  150  multiplies  each  binary  digit  by  the 
power  of  its  place,  then  adds  all  the  place  values 
together  for  a  decimal  value  given  to  D. 

When  the  FOR/NEXT  loop  is  completed,  we 
GOSUB  300  in  line  160  to  deposit  the  row  value 
into  an  array,  then  line  170  sends  us  back  to  line 
120  to  process  another  row: 

160    GOSUB    300:T=T+1 

170    PRINT"{UP}"TAB(2)T:BS="":D=0:IFT<TT    T 

HEN    120 
When  we've  completed  our  input  to  the  alpha 
cells — assigning  the  attributes — line  240  will  give 
us  a  number  which  we  jot  down  beside  each  name 
on  our  list.  With  this  encoded  number,  later  we 
can  analyze  our  list  of  names  almost  any  way  we 
want. 


Cry  UNCLE ! 


|ust  when  you  thought  a  degree  in  accounting 
was  needed  to  wade  through  the  morass  of 
federal  tax  preparation,  along  comes  UNCLE! 

UNCLE!  takes  your  hand  and  guides  you  through 
the  tax  manuals,  asking  ]ust  enough  questions 
to  translate  the  information  for  up  to  28  forms 
and  schedules.  UNCLE!  has  a  good  memory; 
just  give  your  name  and  SSN  once  and  UNCLE! 
will  make  sure  they  get  on  every  required  form. 
Plus,  if  you  want  to  noodle  with  numbers, 
UNCLE1  has  a  calculator-type  scratch  pad.  You 
can't  fool  your  UNCLE!;  if  you  enter  an  error,  it 
will  be  flagged.  When  you're  through  conversing 
with  UNCLE!  on  your  Commodore  64  (single 
drive),  simply  feed  the  forms  and  schedules 
into  a  16-17  cpt  printer  and  UNCLE!  will  prepare 
every  one  of  them.  How  much  to  put  UNCLE! 
in  your  Commodore?  $64! 

VARANGER  Computing  ■  180  Grand  Avenue, 

Suite  900,  Oakland,  CA  94612 
Telephone  (415)  482-3861 

Calif.  Res.  add  6(V'j}%  Sales  Tax.  Visa/MasterCard  accepted. 


The  Simpler,  the  Better 


When  it's  on,  it's  on.  No  software  to  mess  around 
with.  This  high  quality,  low-profile  CP  Numeric 
Keypad  is  the  one  for  your  Commodore  64  and 
VIC-20.  It  is  guaranteed  to  be  100%  compatible 
with  all  the  software  you  have,  now  and  forever,  in 

fvjComputer  Place 


any  format.  The  Keypad  easily  connects  in  parallel 
with  the  existing  keyboard  connector.  Now  you 
can  zip  through  your  numeric  work  sheet,  input 
your  numbers  and  figures  comfortably,  quickly, 
and  more  easily  than  ever  before  at  only  $69.95. 

23914  Crenshaw  Blvd. 
Torrance,  CA  90505 

(213)325-4754 


for  Business,  Education,  and  the  Home 

Dealer  Inquiries  welcome. 

Commodore  64  and  VIC-20  are  trademarks  01  Commodore  Business  Machines 


240    FOR    1=0    TO    TT:PRINT"#"I+l"f 3    SPACES}" 
D ( I ) : NEXT 

We're  almost  finished  with  our  stripped-down 
version  of  the  program  except  for  typing  in  line 
10: 

10    PRINT    CHR$(147) :TT=14:DIM    D(TT),B$(TT} 

But  don't  forget  our  GOSUB.  Notice  that  we've 
got  to  fence  off  our  GOSUB  routine  from  the  rest 
of  the  program  so  that  the  VIC  won't  run  into  it 
and  generate  an  UNDEF'D  STATEMENT  ERROR. 
So,  actually,  line  260,  with  its  END,  is  part  of 
GOSUB  300: 

260  END: REM* SAVE  DATA* 

300  B$(T)=B$:D(T)=D 

310  IF  LEN(BS (T) }<15  THEN  B? (T )=LEFT$ ( " 

(15  SPACES)", 15-LEN(B?(T) ))+B$(T) 
320  RETURN 

Now  let's  LIST  what  we've  done  and  check 
the  screen  for  obvious  errors.  If  you  don't  spot 
any  bugs,  let's  do  a  RUN. 

Does  the  VIC  display  look  anything  like  the 
photo  on  page  110?  If  it  doesn't,  LIST  line  120  and 
check  all  the  cursor  moves  to  make  sure  you've 
got  them  in  the  right  place. 

You  can  use  this  stripped -down  version  to 
practice  your  dot  input.  Just  be  sure  you're  at  the 
very  end  of  the  line — but  not  past  column  O — 
before  you  hit  RETURN.  If  you  don't,  you'll  land 
back  at  cell  A  to  try  again. 

Other  than  that,  Bin  a  mite  is  easy  to  work, 
once  you're  familiar  with  it. 

it  hen  you're  comfortable  with  your  trial  run, 
type  in  the  complete  program.  Lines  10  and  240 
are  different,  but  you've  got  the  hard  part  out  of 
the  way. 

The  beauty  of  Bin  a  mite  is  its  flexibility.  You 
can  plug  almost  any  kind  of  data  into  it  to  produce 
various  graphic  relationships  between  persons 
and  items.  For  instance,  if  we  want  to  find  out 
the  most  popular  item  among  our  list  of  best  cus- 
tomers, we  can  quickly  spot  it  by  noting  the 
column  with  the  most  dots. 

Binamite  isn't  very  impressive  right  now  be- 
cause we're  only  processing  a  list  of  14  names. 
After  you  get  the  hang  of  it,  though,  you  can  easily 
process  hundreds  of  items— as  many  strings  as 
you  can  squeeze  into  VIC  memory.  (I've  been 
able  to  process  as  many  as  500  items  with  the  Super 
Expander's  extra  3K  of  memory,  by  abbreviating 
the  names  to  five  characters  plus  the  encoded 
number,  making  a  maximum  of  ten  characters 
per  string.) 

And  you're  not  limited  to  names  for  your  list 
processing,  either.  You  could  use  the  name  col- 
umn for  items  and  the  attitribute  columns  for  a 
range  of  prices,  for  instance.  The  A  attribute  col- 
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umn  could  be  a  range  of  wholesale  prices  from 
SI  to  $5,  the  B  column  a  range  from  $6  to  $10,  and 
so  on. 

Or  you  could  use  Binamite  to  keep  track  of 
the  books  in  your  library.  The  name  column  would 
be  the  title  of  the  book,  and  the  letter  column  the 
book's  location — on  shelves  A,  B,  C,  in  bookcase 
D  downstairs. 

See  program  listing  on  page  163.  <8J 


COOL  YOUR  DISC  DRIVE 

with  the  "F2500"  cooling  fan  for  your 
Commodore  1540/1541  disc  drive 

Protect  your  valuable  programs  from 
excessive  heat  buildup 

A  must  (or  every  disc  drive  owner 

•  Powerful  (an  cools  critical  components  •Helps  prevent  disc  & 
drive  problems  due  to  excessive  heat  buildup  •  Quiet  operation 

•  High  volume  air  output  •  Low  profile  •  Easy  installation- no  tools 
required  •  90-day  free  replacement  warranty  •  only  S54.95  U.S. 
(S  69 .  95  C  an) .  *  B.C.  residents  add  714  sates  tax. 

1540  and  1541  are  registered  trademarks  °f  Commodore  Business  Machines  Inc. 

To  order  your  F2SO0  disc  drive  cooling  fan  please  send  your 
cheque  or  money  order  for  S54.95  plus  S2  for  shipping  to: 

Besco  Products 
203-8060  Granville  Ave.,  Richmond,  B.C.  Canada  V6V  1P4 
Telephone  (604)  278-5115  DEALER  INQUIRIES  INVITED 


SATISFACTION  GUARANTEED  OR  MONEY  BACK 
.1983  TAX  RETURN  HELPER 


Fast  and  easy  income  tax  preparation. 

Form  1040  and  Schedules  A.BC.D.E 
Enter  and  modify  data  on  a  screen  copy  ot  the  form 
Works  like  a  spreadsheet  -  a!!  (he  lines  altected  by  a  change  are  in- 
stantly updaled 

Form  1040  and  Schedule  A  are  automatically  corelated. 
Automatic  tax  computation  Irom  built-in  lax  tables  and  schedules 
Forms  can  be  printed  or  saved 
Price  is  lax  deductible. 

Cassetlo;VIC20(i6KRAM)orC64  $23 

Disc:  VIC  20(16*  RAM)  or  C64  $33 

(Add  $1  50  S  S  H|  Check.  MO  or  credit  caid 

KSOFT  CO. 

■    B45WELLNER  RD..  NAPERVILLE.  IL  60540,  (312)961-1250     ijHg 
h  Dealer  inquiries  welcome  ^^*^ 


FREE  CATALOG! 


Send  for  your  FREE  COPY  of 


64     SHOPPER 


[Your  complete  source  for  C-64  and  Vic  software! 

You've  never  seen  anything  like  it!! 

USE  READERS  SERVICE  CARD,  OR  WRITE  DIRECTLY  TO: 
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BOX  187,  FRASER,  Ml.  48026 


POWER  BASK 


ASCII/POKE  Printer 

For  VIC  And  64 

Todd  Heimarck,  Assistant  Editor 


This  month's  "Power  BASIC" — a  continuing 
series  of  helpful  utilities  and  routines — 
provides  a  short  machine  language  routine 
that  automatically  calculates  ASCII  and  POKE 
values.  It's  a  handy  utility  you  can  use  while 
writing  a  BASIC  program. 


Reference  Tables 

Chances  are,  PRINTing  to  the  screen  was  one  of 
the  first  things  you  learned  to  do  in  BASIC.  You 
probably  also  learned  how  to  control  where  the 
computer  prints  by  putting  cursor  commands 
within  strings  or  by  using  SPC  and  TAB  com- 
mands. The  PRINT  command  is  common,  primar- 
ily because  it  is  so  easy  to  use.  But  in  certain  situ- 
ations, you  may  need  to  find  out  a  character's 
ASCII  number.  And  sometimes  it  is  quicker  to 
simply  POKE  a  character  onto  the  screen. 

But  before  you  can  POKE,  you  have  to  know 
the  character  number.  Let's  put  a  row  of  hearts  at 
the  top  of  the  screen.  So,  we  need  to  POKE  a  bunch 
of  81s.  Wait,  those  are  solid  circles.  What's  the 
number  for  hearts?  I  know  that  list  is  somewhere 
in  this  book. 

If  you  use  POKEs  or  ASCII  values  in  pro- 
gramming, you  know  how  annoying  it  is  to  flip 
back  and  forth  through  the  reference  book,  losing 
time  and  patience.  Even  worse,  you  could  lose 
the  book  and  end  up  typing  the  character  and 
PEEKing  screen  memory  to  get  the  POKE  value. 

Let  The  Computer  Do  The  Work 

Your  computer  already  knows  the  POKE  values 
and  ASCII  numbers,  so  why  not  let  it  do  the 
work? 

This  short  machine  language  program, 
"ASCII/POKE  Printer,"  does  not  use  any  BASIC 
memory.  Its  52  bytes  remain  in  the  cassette  buffer, 
ready  to  convert  letters  and  graphics  characters  to 


POKE  and  ASCII  numbers  whenever  you  want. 

Note  that  if  you  write  a  program  that  POKEs 
any  of  the  address  locations  of  the  cassette  buffer 
(828-1019),  you  may  lose  ASCII/POKE  Printer. 
Also,  if  you  use  a  cassette  player  for  SAVEs, 
LOADs,  or  tape  files,  you  will  erase  the  machine 
language  program.  Fortunately,  it  is  entirely  re- 
locatable, so  if  you  want  to  use  the  cassette  buffer, 
you  can  change  line  10  to  move  it  to  another  part 
of  memory.  On  the  64,  it  is  usually  safe  to  use  any 
of  the  memory  locations  from  49152  to  53247.  If 
you  have  a  VIC-20,  you  will  have  to  protect  part 
of  BASIC  RAM  (52  bytes  worth)  with  POKEs  to 
51,  52,  55,  and  56. 

LOADing  And  Using 
The  Program 

If  you  have  a  64,  type  in  Program  1 .  If  you  have  a 
VIC,  use  Program  2,  but  if  your  VIC  has  8K  or 
more  of  expansion  memory,  change  line  23  to 
read: 

23    DATA  169,0, 133,212,174,0,16, 32, 205, 221 
,232,208,204 

Make  sure  the  DATA  statements  are  exactly  as 
printed.  SAVE  it  to  tape  or  disk  and  VERIFY  (if 
you  have  a  cassette  drive).  RUN  the  program  and 
type  NEW.  The  program  is  now  in  your  cassette 
buffer.  BASIC  memory  was  cleared  when  you 
typed  NEW,  but  it  did  not  touch  the  cassette 
buffer. 

Anytime  you  want  to  use  ASCII/POKE  Printer, 
type  SYS  828.  The  computer  will  wait  for  you  to 
type  a  character  and  then  display  that  character 
in  the  upper-left  corner  with  the  ASCII  value  to 
the  right  and  the  POKE  value  below.  Type  another 
character  and  you  gel  two  new  values. 

To  exit  (back  to  BASIC),  hold  down  SHIFT  and 
press  RETURN.  This  returns  you  to  your  program. 
SYS  828  will  send  you  back  to  ASCII/POKE  Printer, 
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and  so  on.  You  can  toggle  back  and  forth  as  the 
need  arises. 

Special  Cases 

There  are  some  ASCII  numbers  that  have  no 
equivalent  POKE.  For  example,  adding  CHR$(13) 
to  a  string  will  force  a  RETURN  after  the  string  is 
printed.  But  ASCII  13  cannot  be  POKEd  to  the 
screen  (what  would  a  RETURN  look  like?).  ASCII/ 
POKE  Printer  will  give  you  the  correct  ASCII  num- 
bers, but  for  certain  characters,  like  RETURN,  it 
will  print  a  blank  space  and  list  a  POKE  of  32 
(which  is  the  number  for  a  blank  space).  In  the 
case  of  function  keys,  CLR/HOME,  INST/DEL, 
and  color  commands,  it  will  print  a  reverse  video 
character,  as  if  in  quote  mode,  and  the  correct 
ASCII  number.  But  the  POKE  number  will  be 
wrong.  Keys  that  perform  a  function — clearing 
the  screen,  for  example — are  not  characters  that 
can  be  POKEd  to  the  screen. 

Also  note  that  you  cannot  get  values  for  in- 
verse video  characters,  which  do  not  have  separate 
ASCII  numbers.  To  program  a  reverse  character, 
precede  it  with  a  CHR$(18).  To  POKE  an  inverse 
video  character,  add  128  to  the  POKE  value  of  the 
regular  character. 

This  machine  language  utility  will  be  most 
helpful  when  you  are  writing  BASIC  programs. 
By  letting  the  computer  tell  you  ASCII  and  POKE 


values,  you  can  really  save  time.  The  program 
was  written  to  be  short  and  simple,  but  if  you  are 
familiar  with  machine  language,  you  could  modify 
it  to  do  much  more. 

Program  1: 

ASCII/POKE  Printer— 64  Version 

10  FORJ=828T0879:READK:POKEJ,K:NEXT 
15  READY: IFY<>999THENSTOP 

20  DATA32, 228, 255,240,251,  170, 201, 141, 208 
,1, 96, 169,147 

21  DATA32, 210, 255, 169, 255, 133, 212, 138, 32, 
210,255,169,32 

22  DATA32.210, 255 , 169 , 0, 32 , 205 , 189, 169, 13 
,32, 210, 255 

23  DATA169,0, 133 , 212 , 174, 0, 4, 32 , 205 , 189, 2 
32,208, 204 

25    DATA999 

Program  2: 

ASCII/POKE  Printer— VIC  Version 

10  F0RJ=828T0879 : READK: POKE J, K; NEXT 
15  READY: IFY<>999THENSTOP 

20  DATA32,228, 255, 240,251,170, 201,141,  208 
, 1,96, 169,147 

21  DATA32,210, 25S, 169, 255, 133, 212, 138,  32, 
210,255, 169, 32 

22  DATA32, 210,255, 169,0,32,205, 221, 169, 13 
,32, 210, 255 

23  DATA169,0,133,212, 174, 0, 30, 32, 205 , 221 , 
232,208,204 

25  DATA999 


B*-^ 


d*W 
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The  Professional  Systems  People  And 

MHEIEIto]  gllSEIx 


C  Present  Products  From 

K  commodore 
And 
The  Software  That  Makes  Them  Work! 


SOFTWARE 


SbSys 

C-64,  8032,  8096  &  B-Series 

The  Small  Business  System 

Available  for  1541,  8050  and  hard  disk 
drives.  GL,  AP,  AR,  INV.  and  payroll 
as  low  as  $99.00  each!  Call  for  specific 
pricing. 

PerSys 

VIC  20,  C-64,  8032,  8096  &  B-Series 

The  Personal  Financial 
System 

A  complete  financial  package  for  home 
and  small  business,  beginning  at  $69.00 
on  tape. 

VERTICAL  PACKAGES 
INCLUDE: 


LegiSys 


8032,  8096  &  B-Series. 

The  total  legal  office  information, 

accounting  and  tickler  system. 


LoadSys 


8032,  8096  &  B-Series. 
The  total  truck   brokerage  accounting 
system.  Call  for  free  intro  consulting. 
Dealer  inquiries  invited. 


VISA  &  MasterCard.  Add  3^0  Surcharge. 
Shipping  paid  on  prepaid  orders. 


These  are  sample  unit  prices. 
We  carry  support  items,  cables,  games. 
WE  HAVE  IT! 


CBM  PRODUCTS 

8032  Computer 

S   619.00 

j      8050  Disk  Drive 

979.00 

|     8250  Disk  Drive 

1279.00 

9060  Hard  Disk 

1979.00 

8023  Printer 

529.00 

]      6400  Printer 

1399.00 

C-64  STUFF 


C-64  Computer 
1541  Disk  Drive 
1701  Monitor 
1526  Printer 
1600  Modem 


$219.00 

249.00 

249.00 

339.00 

69.00 


Call  Toil-Free  by  dialing: 
Outside  Texas: 

1-800-221-WORX 

Inside  Texas: 

1-800-692-4265, 

wait  for  beep,  then  dial  008-3378, 
wait  for  tone  and  dial  993. 
or     Lubbock  797-2623, 

Ft.  Worth:  817/589-2622 

807  Melborne       Hursi,  Tx.  76053 


MLnLIfflLo] 


wj[0JlRJx 


4210  D  50th    797-2623   Lubbock,  TX  79413 


Dynamic  SAVE 
For  VIC  And  64 


Stephen  S.  Leven 


These  short  programs,  for  the  VIC  or  64,  can 
take  the  tedium  out  of  frequently  SAVEing 
and  VERIFYing  your  BASIC  programs.  For 
disk  and  tape  users. 


When  you  are  typing  in  a  long  program,  it's  a 
good  idea  to  SAVE  portions  of  it  frequently,  and 
to  make  backup  copies.  But  it  is  tedious  to  con- 
tinually type  SAVE  "PROGRAM  NAME",  wait 
until  the  program  is  saved,  retype  SAVE  "PRO- 
GRAM NAME",  then  wait  again.  "Dynamic 
SAVE"  will  do  this  work  for  you,  whether  you 
use  tape  or  disk,  using  a  technique  known  as  the 
dynamic  keyboard. 

Why  You  Should  SAVE 
Periodically 

A  sudden  loss  of  power — during  a  thunderstorm 
or  when  you  accidentally  knock  the  power  cord 
from  the  wall  socket — can  instantly  wipe  out  all 
your  hours  of  hard  work.  Even  something  as 
simple  as  turning  on  the  dishwasher  or  garbage 
disposal  can  cause  a  voltage  drop  that  garbles  the 
program  in  memory. 

These  four  bits  of  advice  will  minimize  the 
consequences  of  a  sudden  power  failure  or  elec- 
trical glitch: 

1.  SAVE  your  program  every  15  minutes  or 
so,  or  whenever  the  changes  you  have  made 
will  cause  you  a  serious  setback  if  they  are 
lost. 

2.  If  you  use  tape,  SAVE  two  copies  of  the 
program,  one  after  the  other,  to  reduce  the 
chance  of  losing  the  program  due  to  accidental 
damage  to  one  section  of  the  tape. 
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3.  Use  two  tapes  (or  disks).  For  tape,  first 
SAVE  on  one  ta  pe,  then  SAVE  on  a  second . 
The  third  time  you  SAVE,  use  the  first  tape 
again.  Continue  to  alternate  tapes,  so  that  if 
something  happens  during  the  SAVE,  or 
your  tape  is  damaged,  you  still  have  your 
previous  version  on  the  other  tape.  (Follow 
this  same  procedure  for  disk  backup.) 

4.  Finally,  when  you  have  finished  debugging 
your  program  and  it  runs  perfectly,  make 
one  or  two  backup  copies.  It  is  a  good  idea  to 
keep  an  archive  tape  (or  disk)  for  emergencies. 
If  your  working  copy  of  the  program  fails, 
you  can  retrieve  your  program  from  the 
archive  tape  (or  disk). 

The  Dynamic  Keyboard 
Technique 

The  term  dynamic  keyboard  basically  means  that 
you  have  your  program  display  certain  screen 
instructions  which  are  executed  after  the  program 
ends.  You  do  this  by  inserting  program  lines  which 
CLEAR  the  screen  and  PRINT  the  instructions 
on  the  screen  just  before  the  END  line,  and 
then  load  the  keyboard  buffer  with  the  cursor 
controls  and  RETURNs  necessary  to  execute  those 
instructions. 

When  the  program  comes  to  the  END  in- 
struction, it  goes  into  immediate  mode.  The  first 
thing  it  checks  is  the  keyboard  buffer,  which  con- 
tains your  RETURNs  and  cursor  controls.  It  then 
executes  them  just  as  if  you  were  typing  them  in. 
As  the  cursor  moves  across  the  commands  printed 
on  the  screen,  they  are  automatically  executed. 

Tape  And  Disk  Versions 

Program  1  is  for  tape  users,  and  Program  2  for 


COMPUTER  MAIL  ORD 


k  I  '  commodore 

UIO20  ■"**■  ■    ^ 


VISA' 


COMMODORE  64 


1520  Color  Printer/Plotter S1 69.00 

M-801  Dot  Matrix/ Parallel $21  9.00 

1  530  Datasette S69.00 

1  541  Single  Disk  Drive S249.00 

1  600  VIC  Modem S59.00 

1  61 0  VIC  Term  40 S49.00 

1  650  AD/AA  Modem S89.00 

1702  14"  Color  Monitor S249.00 

1  31 1  Joystick  (each) $4.99 

1312  Paddles S11.99 

1110  VIC  8K $42.00 

1 1 1 1  VIC  1 6K S69.00 

1011   RS-232  Interface $42.00 

1211  Super  Expander $53.00 


PRINTERS 

Epson (MX100, RX80,  FX80,  FX100) CALL 

Okidata{82,  83,  84,  92,  93) CALL 

Star  Gemini  10X $299.00 

Star  Gemini  Delta  10 S559.00 

Smith  Corona  TP-2 S439.00 

C.ltoh  Prowriter  851  OP $379.00 

C.ltoh  Gorilla $209.00 

SD-1  Disk  Drive "Yl^P $349.00 

CARDCO. 

Light  Pen S32.00 

3  Slot  VIC  Expansion  Interlace  S32.00 

6  Slot  Expansion  Interface $79.00 

Casssette  Interface $29.00 

Parallel  Printer  Interface $49.00 

Parallel  Printer  Interface  w/Graphics $69.00 


CDmmodor-0 

|  CBM  64  Pelerence  Guide  ...313,00 

C-64  DISKS 

I  EasyCalc 505.00 

Easy-Financa  I,  II.  Ill,  IV SIS. 00 

EasyMail S19.00 

EasyScript S39.00 

Word/Name  Machine 119.00 

EasySpell $19.00 

Accounts  Receivable  S39.00 

Accounts  Payable S39.00 

General  Lodger ,.,,.$39.00 

Assembler SI  9.00 

Logo 539.00 

Pilot $39.00 

Pet  Emulator SIB. 00 

Screen  Editor  —  $19.00 

Music  Machine.. $16.00 

Music  Composer... SI  5-00 

VIC  20  CARTRIDGES  S  DISKS 
I  GortekatheMlcroChipslC|...$19.00 

Super  Slot  IR)  S14.0O 

Super  Alien  IR) SI  4.. 00 

Jupiter  Lander  in; SHOO 

Radar  Rat  Race  (fl) SI  4.00 

Count  Adventure  IR)  $21 .00 

Plnball  Spectacular  {Rj  ......SIS, 00 

|  VIC  Reference  Guide  $15.00 

AHTWOHX 
C64/VIC  20  CASSETTES 

Bridge  3.0 S 1  5 .00 

Teacher's  Pet St  2.00 

BnOOEHSUND 
VIC  20  CASSETTES 

I  Martian  Raid SIB. 00 

Shark  Trap S10.00 

|  Multiiound  Syntheslier $1 6.00 

COMMERCIAL  QATA 
VIC  SO  CASSETTES 

I  Motor  Mouse $23-00 

Centlpod 523.00 

Frogee  $23.00 

C  04  CASSETTES 

\  Road  Toad $24.00 

We  c 


SOFTWARE 


CREATIVE  SOFTWARE 
CB4  CASSETTES 

Home  Inventory  .,,..,.,.,..,.  $1 1.00 
Household  Finance $23.00 

C-64  CARTRIDGES 

Trash  men $29.00 

C  64  DISKS 

Homo  Inventory $1  1.00 

Household  Finance $29.00 

VIC  20  CASSETTES 

Homo  Inventory ,$12,00 

Household  Finance $14,00 

VIC  20  CARTRIDGES 

Astro  Blltl $21.00 

Black  Hole $32.00 

Tr  ashman....  — ,..,$21.00 

Chopliftor (31.00 

DYIMATECH 

C-64  DISK 
Codewnter S75 .00 

EPYX 

VIC  20  CASSETTES 

Ricochet ....S32.O0 

Sword  of  Farfloal.. .$24.00 

Rescue  at  Rlgel  $24.00 


QUICK  BROWN  POX 

C-64/VIC  20  CARTRIDGE 
Word  Processor...... $4  9.00 

UMI 

VIC  20  CARTRIDGES 

Amok $30.00 

Meteor  Run $40.00 

Alien  Blitz $30.00 

VIC  20  CASSETTES 

Cloud  Burst $15.00 

Video  Verman $1 9.0Q 


ATARIBDFT 

C64/VIC  20  Cartridges 

Centipede $37.99 

PacMan 537.99 

Oonkay  Kong S37.99 

Dig  Dug $37.99 

Defender  S37.99 

Robot ron S3? .99 

Stargate $37.99 

VIC  20  CARTRIDGES 

VIC  Forth 532  00 

HES  (Hon S29  00 

HES  Writer 529  00 

Aggressor  529.00 

Synthesound $21 .00 

Shamus 529.00 

Protector .$29.00 

Tur lie  Graphics. . .529.00 

C  04  CARTRIDGES 

HES  Mon  529  00 

HE  S  Writer 535  00 

NUFEKOP 
VIC  20  CASSETTES 

Alien  Panic .,$10.00 

Race  Fun- Drag  Race .$16.00 

The  Catup  510.00 

Exterminator , $19.00 

C  04  CASSETTE 

3D  Mon 510.00 

ROMOX 

Typo  1 20/641 $29.00 

RAINBOW 
C-64  DISKS 

Personal  Finance  S4B.00 

Writers  Assistant 595.00 

Spreadsheet  Assistant $96.00 

QUANTUM 

40/BOColumn  VideoQoard. .  .$95-00 

40,'BOCol  Video  Board (1  OK) . . . 51 79.00 

SIRIUB 

VIC  20  CARTRIDGES 

Deadly  Duek 521.00 

Spider  City $29.00 


DUST  COVERS 

C-64/VIC  20  Cover S9.99 

rry  a  selection  from  the  above  manufacturer* 

Synapse,  Thorn,  InfoCom,  Onalow,  Practice  lc,  Spinna 


MICROBPEC 
VIC  20  CASSETTES 
Spelling  Bea- 

Grades  2.  3.  4.  5.  or  B    SB. 00 

Malll  Drill  SB, 00 

Portloiio  Manager $16.00 

Data  Manager $16.00 

VIC  20  DISKS 

General  Ledger $69.00 

Mailing  List  Manager  530.00 

Inventory  Package $09.00 

Payroll SG9.00 

Data  Base 549.00 

C64  CASSETTES 

Black  Bsi 512.00 

Color  Sketch  $20.00 

Match  Maker  S16.00 

C-64  DISKS 

Mailing  List  Manager  $45.00 

inventory  Package  $79.00 

General  Ledger S79.00 

Payroll S79.00 

Data  Base.. 509  00 

CalcResult $1  39.00 

Black  Bo* SIB. 00 

Color  Sketch  , $22.00 

Match  Maker  $20.00 

TROMIX 

VIC  20  CASSETTES 

Galactic  Blltl $19.95 

Swarm ,,...,,,,,.... $22.95 

Sidewinder $22.95 

VICTORY 

C64/VIC  20  CASSETTES 

Adventure  Pak  1(3  games)  ...$12.00 

Adventure  Pak  ll|3  games)...  51  2. 00 

Annihilation  SIB. 00 

Grave  Robber. 51  1  .00 

Kongo  Kong ...SI 6. 00 

Trek..... S11  .00 

PROFEBBIQIMAL 
SOFTWARE 

Word  Pro  64 $59.00 

I  plus... 

ker  S  Timeworks. 


WEST:     ..CANADA:    =  EA5T 

(f-SOO-e^S^ff     1- BOO -268 -4559   f-800-255-395CT 


In  NVcall  |702|S88S6S4.  Dept    0313 

P.O.  Box  6689,  Stateline.  NV  89449 

Order  Status  #:  588-5654 


In  Toronto  call  (416)8280866,  Dept.  0313 
3505  Dunwin  Ct.  .Unit  1  B. 
MisF.isr.ti  on.  .i,  Ontario,  Canada  LSLITI 
Order  Status  #:  828-08 66 


In  PA  call  171  7)327-9575.  Dept    031  J 
477  E.  Third  St.  Williamsport.  PA  17701 
Order  Status  #:  327-9576 
Customer  Service  Number:  327  T450 


M 


No  f  isk.  no  deposit  on  COO,  orders.  Prepaid  orders  receive  free  shipping  within  the  UPS  Continental  United  States  with  no  waiting  period  (or  certified 
checks  or  money  orders.  Add  3%  Iminimum  $5.00)  shipping  and  handling  on  all  C.O.D.  and  credit  card  orders.  Laigersh'pments  may  require  additional 
charges.  NV  and  PA  residents  add  sa  les  ta*.  All  Items  subject  to  availability  and  pt  lea  change.  We  slock  manufacturer's  and  lhi«d  party  software  for  most  all 
computers  on  me  market.  Call  today  for  our  new  catalog, 
CANADIAN  ORDERS;  All  prices  are  subject  lo  shipping,  tai  and  currency  eichenoe  fluctuations.  Call  tot  exact  pricing  in  Canada. 


mm, 


disk  users.  It  is  a  good  idea  to  LOAD  Dynamic 
SAVE  before  you  start  working  on  your  program. 
You  can  change  the  line  numbers  if  you  wish, 
but,  by  using  the  line  numbers  I've  used,  you  can 
easily  remember  that  RUN  60000  will  perform 
your  SAVE. 

Program  1  SAVEs  two  consecutive  copies  of 
your  program,  including  Dynamic  SAVE,  to  tape. 
When  the  SAVEs  are  completed,  the  screen  will 
be  set  up  to  perform  a  VERIFY  of  each  copy.  Just 
rewind  the  tape  and  press  RETURN. 

Line  60010  defines  the  character  for  the  quote 
mark,  since  using  the  CHRS  equivalent  is  the  best 
way  to  PRINT  it  on  the  screen.  This  line  also  de- 
fines the  name  of  the  program  to  be  SAVEd,  which 
is  stored  in  the  variable  N$.  Change  the  contents 
of  N$  to  the  name  of  the  program  you  wish  to  save. 

Line  60019  is  a  REM  line,  reminding  you  to 
use  either  line  60020  or  line  60021,  depending  on 
whether  you  have  a  VIC  or  a  64.  These  two  lines 
set  the  screen  and  border  to  their  default  colors, 
and  define  the  character  colors  fur  use  in  line 
60030.  These  colors  are  selected  so  that  program 
operation  on  the  screen  is  invisible.  It's  a  good 
way  to  avoid  screen  clutter.  If  you  want  to  see 
what  the  computer  is  doing,  simplv  change  the 
value  of  CIS  to  that  of  C2$  in  line  60020  or  60021 . 

Line  60030  changes  the  character  color  to  that 
of  the  screen  color  by  printing  CIS.  Then  it  clears 
the  screen  and  displays  the  following  message: 

FORQ  =  lT02:SAVE"DYNAMICSAVE":NEXT 

After  printing,  the  character  color  is  restored 
to  normal  by  printing  C2S. 

Line  60040  loads  the  keyboard  buffer  with  a 
HOME  (ASCII  19)  and  RETURN  (ASCII  13),  just 
as  though  they  had  been  typed  in. 

Line  60050  POKEs  the  following  characters  to 
the  keyboard  buffer:  V,  SHIFTed  E,  a  colon, 
another  V,  and  another  SHIFTed  E.  (V-SHIFT-E  is 
the  Commodore  abbreviation  for  the  BASIC  com- 
mand VERIFY.) 

The  keyboard  buffer  (memory  locations  631- 
640)  can  be  loaded  with  up  to  ten  characters.  The 
first  character  to  be  executed  should  be  POKEd 
into  location  631,  the  second  into  location  632, 
and  so  on.  (The  character  codes  may  be  found  in 
the  appendices  of  VIC-20  User's  Manual,  VIC-20 
Programmer's  Reference  Guide,  Commodore  64  User's 
Manual,  or  Commodore  64  Programmer's  Reference 
Guide.)  Location  198  must  be*"  POKEd  with  the 
number  of  characters  in  the  keyboard  buffer,  in 
this  case  seven.  The  END  statement  assures  that 
the  program  will  end  at  this  point  and  pass  control 
to  the  keyboard  buffer. 

Program  2  is  similar  to  Program  1.  The  main 
differences  are  in  line  60030  and  in  the  characters 
POKEd  into  the  keyboard  buffer.  In  the  disk  ver- 
sion, line  60030  PR  I  NTs,  at  the  top  of  the  screen, 


the  disk  command  to  SAVE  and  Replace  the  pro- 
gram, followed  by  a  colon  and  the  command  to 
VERIFY  the  program  on  disk.  Since  the  user  does 
not  need  to  take  any  action  (such  as  rewinding  a 
tape)  in  the  disk  version,  verification  can  begin 
immediately  after  the  SAVE,  For  that  reason,  the 
additional  keyboard  buffer  POKEs  in  line  60050  of 
Program  1  are  not  needed  in  the  disk  version,  so 
the  program  ENDs  after  POKEing  a  2  in  location 
198  to  indicate  two  characters  in  the  keyboard 
buffer. 

How  To  Use  The  Program 

To  use  this  program  for  saving  to  tape: 

1.  Type  or  LOAD  Program  1  into  your  VIC-20 
or  Commodore  64  before  you  start  writing 
your  program.  Substitute  your  program  name 
in  place  of  DYNAMIC  SAVE  in  line  60010. 

2.  When  you're  ready  to  SAVE  your  prugram, 
place  your  tape  into  the  recorder  and  type 
RUN  60000.  The  screen  will  clear,  then  the 
message  PRESS  RECORD  AND  PLAY  ON 
TAPE  will  appear. 

3.  Press  RECORD  and  PLAY.  The  computer 
will  supply  its  typical  response,  OK,  followed 
by  SAVING  and  whatever  program  name 
you  supplied. 

4.  After  the  first  copy  of  the  program  is  saved, 
the  response  SAVING  and  the  program  name 
will  be  repeated  to  indicate  that  the  second 
copy  is  being  SAVEd.  When  the  second  SAVE 
is  finished,  the  familiar  READY  message  will 
be  displayed,  followed  by  the  flashing  cursor, 
positioned  on  the  line  with  the  double  VERIFY 
command  (V-:V-). 

5.  Be  sure  to  rewind  your  tape  to  lite  beginning  of 
the  program.  Then  press  RETURN.  The 
computer  will  respond  with  PRESS  PLAY 
ON  TAPE.  After  you  press  PLAY,  the 
normal  VERIFY  routine  will  take  place:  OK, 
SEARCHING,  FOUND  and  your  program 
name,  VERIFYING,  OK.  The  process  then 
repeats  for  the  second  copy.  If  you  choose 
not  to  VERIFY,  use  the  cursor  controls  to 
move  the  cursor  off  the  V-:V-  line  before 
pressing  RETURN. 

If  you  use  disk,  type  or  LOAD  Program  2, 
making  sure  to  substitute  your  program  name  in 
place  of  DYNAMIC  SAVEin  line  60010.  When 
you're  ready  to  SAVE,  simply  type  RUN  60000. 
The  computer  will  then  display  SAVING  and 
VERIFYING  messages  at  the  appropriate  time. 

Once  Dynamic  SAVE  is  in  place,  you  can  face 
the  possibility  of  a  power  failure  with  a  little  less 
dread. 

See  program  Hstings  on  page  165.  QB 
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Let  Your  Computer  "SPEAK 

COMvoice  IS  AS  EASY  AS  1  -2-3  SPEAK 


t)  PLUG  COMvoice  INTO 
YOUR  VIC-20  OR 
CBM-64 

2)  TURN  YOUR  COMPUTED 
OH 

3)  TYPE  SPEAK  "HELLO, 
HOW  ARE  YOU" 


ASEASYTOUSEAS 
Rl NT  STATEMENT 


SPEAK 

SPEAK 


ONLY  $149.95 


DEALER  INQUIRIES  INVITED 


ALSO  ASK  ABOUT  OUR 

HOME  SECURITY  AND  ENERGY  MANAGEMENT  PRODUCTS 


VIController 

Wireless  remote  control  system 
(or  the  VIC-20  and  CBM-64, 
Use  with  BSR  and  Leviton  remote 
receiver  modules.  S69.95 


COMsense 

Input  device  for  the  VIC-20  and 
CBM-64.  Provides  4  open/close 
and  2  analog  inputs. 

$49.95 


COMclock/AUTOboot 

Clock/calendar  cartridge  for 
CBM-64  with  battery  backup 
and  auto-start  software  in  ROM. 

$69.95 


^GENESISn.    P.O.  Box1143    Bethlehem,  PA  18018   (215)861-0850 


I  COMPUTER    CORPORATION! 


COLOR  PROBLEMS? 

One  of  Our  Foui  New 
Products  will  Solve  Them! 

You're  not  alone.  Thousands  oi  Com- 
modore 64  owners  have  "fuzzy"  color  on 
their  TV.  Most  have  interference  lines 
crowding  out  their  great  graphics  Many 
have  bought  expensive  monitors  or  new 
TVs,  and  often  even  that  hasn't  helped 
Bui,  most  of  us  jusl  lived  wilh  the  problem 
Now  the  engineers  al  Bytes  &  Pieces 
have  lour  simple,  inexpensive  solutions 

If  you  have  an  "old  64"  (wilh  the  5  pin 
Monitor  Din  Plug),  you've  probably  had 
color,  resolution  and  interference 
problems.  We  can  salve  them! 

The  Interference  Stopper  . .  A  new 
kit  lhat  installs  in  minutes  with  two 
simple  solder  connections  Best 
[v  -7  results  when  combined  with  *2.  3, 
•^  Jtor4  below  Absolutely  stops  <?0%  oi 
the  RF  interference  on  your  screen 


1. 


$15.95 


The  Color  Sharpener      Use  it  your 
"old  64"  is  hooked  up  to  a  TV.  Just 
plug  into  the  monitor  plug,  and  the 
color  and  contrast  immediately  im- 
prove. Dramatically.  Crisp  letters. 
Great  graphics.  CIA  OR 

The  NEW  Color  Sharpener 
CABLE.     Use  if  your  "old  64"  is 
hooked  up  to  a  monitor  A  new  2 
prong  cable,  wilh  Ihe  Color  Sharp- 
ener built  in.  All  the  benefits  ot  *2, 
on  your  monitor.  C9A  0*v 


y*. 


The  Monitor  "Improver"      If  you 

have  a  Commodore  1701  monilor, 
this  cable  (3  prong)  gives  you  a  pic- 
lure  you  won't  believe,  Betler  than 
Ihe  cable  Commodore  built  ..by 
a  lot.  Try  it,  you  won't  be  disap- 
poinled.  (Also  hooks  your  "Old  64" 
tothel702)  S24.95 

The  Beset  Switch. ,  .Here  it  is.  a 
Resel  Switch  lor  Vic  or  Commodore. 
.Get  back  into  control  ol  a  "Hung-Up" 
program  Resels  all  poinlers  Easy 
'two  solder  connection  installation 
Every  computer  should  have  one 


S9.95 


If  any  of  our  products  do  nol  work  to 
your  satisfaction,  send  it  back  and 
we'll  refund  your  purchase  price  in  lull 

DUST  PROBLEMS? 

Solve  Them  with  Matching  Dust 

Covers  for  Computer,  Tape  and  Disk. 

S7.9S— S9.95 

These  are  the  deluxe  covers  tor  eilher  the 
Commodore  64  or  the  Vic  20  made  of 
brown  lealher  grain  Naugahyde,  spe- 
cially lined  with  a  soft  non-scratch  liner, 
for  a  cover  you  just  can't  beat. 

Don'l  waste  your  money  on  those  cheap 
looking,  clear  plastic,  static  filled  covers 
Gel  Ihe  quality  ones,  custom  litted  lo  your 
Commodore  computers. 

Available  singly  or  as  a  matched  set  in 

beautiful  brown  simulated  leather. 

Commodore  tA  and  Vic  20  are  registered 

Ira  de  marks  o(  Commodore  Compute;  Companv 


Bytes  &  Pieces,  Inc. 


Dealer 

Inquiries 
Invited 


550  N.  68th  Stieet, 

Wauwatosa.  wi  53213  414/257-3562 


ORDER  TODAY! 
Please  send  me  the  following. 


aty. 


Amount 


Interference 
Stopper  rjj  515.95 

Color  Sharpener 
©S18.95 

NEW  Color 
Sharpener  Cable 
@  S24.95 

The  Monitor 
Improver  © 
S2495 

The  Reset  Switch 
#S9.95 

Computer  Dust 
Cover  @  59.95 

1541  Disk  Dust 
Cover  &  S895 

Dataset  Dust 
Cover  &  S7.95 


2.QO 


Shipping  &  Handling; 

S%  State  Tax 

(Wisconsin  Residents  only)  $         ■ 

TOTAL  S  __^_ 

D  Check  or  Money  Order  enclosed 
D  Charge  to  my  VISA  or  MasterCard 

VISA* ^__^_ 

MasterCard*  

Inner  Bank  # 

Expiration  Date . 


Slgnatuie 
SHIP  TO, 

Name  

Address  

City   

State/Zip 


COMPUTEfs  Gazette     Mardi  1 984     1 23 


VICreations 


Dan  Carmichael,  Submissions  Editor 


The  Indexer 

This  month's  offering  presents  a  small  data 
base  program,  "The  Indexer."  Designed  as  an 
index  for  computed  gazette  articles,  it  can  be 
used  for  a  variety  of  purposes.  It  runs  on  any 
size  VIC-20  and  the  Commodore  64. 


If  you're  like  me,  you  probably  keep  your  back 
issues  of  COMPUTE !'s  GAZETTE,  There's  a  wealth  of 
reference  material  in  each  issue.  The  only  problem 
is  remembering  just  what  issue  contains  that  arti- 
cle you  so  desperately  need. 

This  month,  we'll  look  at  a  small  data  base 
program  that  allows  you  to  keep  an  index  of  arti- 
cles or  books  that  are  of  interest  to  you.  "The  In- 
dexer" stores  such  information  as  magazine  (or 
book)  name,  subject  matter,  article  title,  month 
and  year  of  issue,  page  number,  and  the  type  of 
computer  the  article  applies  to.  It  can  also  search 
for  that  article  by  subject,  article  name,  magazine 
name,  and  type  of  computer. 

Storing  Data  In  The  Program 

The  Indexer  is  machine  hulepemient — it  does  nut 
store  data  on  a  peripheral  device  such  as  a  tape 
cassette  or  disk  drive.  Information  is  read  into  the 
program  from  DATA  statements  and  is  stored 
within  the  program  in  an  array.  If  you  study  it 
carefully,  you'll  see  some  useful  array  and  table 
look-up  techniques. 

Each  DATA  statement  you  enter  must  include 
the  following  six  elements  in  order,  and  each  entry 
should  be  separated  by  a  comma. 

DATA  magazine  name,  article  title,  subject, 
month. year,  page  number,  type  of  computer 

Be  careful  when  entering  the  DATA  state- 
ments— a  misplaced  or  forgotten  comma  will 
cause  errors  when  the  program  is  run.  Be  sure 
not  to  use  commas  or  colons  when  typing  in  the 
article  titles. 

How  To  Use  The  Indexer 

Type  in  the  program,  carefully  watching  all  cursor 
control  characters,  and  save  it  to  tape  or  disk  before 
running.  The  five  DATA  statements  at  the  end  of 
the  program  are  optional,  included  only  as  ex- 
amples of  the  DATA  statement  format.  If  you 
wish  to  begin  your  own  data  base,  you  can  replace 
the  DATA  statements  from  line  901  on. 

Each  time  you  add  or  delete  DATA  statements 
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from  the  program,  change  the  value  of  the  variable 
N  in  line  900.  This  variable  represents  the  exact 
number  of  DATA  statements  included.  If  you 
number  consecutively,  beginning  at  line  901,  it 
will  be  easy  to  figure  out  how  many  DATA  state- 
ments there  are.  And  anytime  you  update  your 
program,  you  should  SAVE  a  copy  to  tape  or  disk. 

Once  the  program  is  running,  you'll  be 
prompted  to  select  the  target  of  your  search.  You 
can  search  for  article  subject,  article  name,  name 
of  magazine,  or  type  of  computer.  To  start  the 
search,  press  the  indicated  function  key.  You'll 
then  be  asked  for  the  target  of  your  search.  Just 
enter  the  search  keyword,  press  RETURN,  and 
the  program  will  perform  the  table  search. 

If  you're  using  the  program  with  an  unex- 
panded  VIC,  memory  will  become  a  problem  as 
you  add  DATA  statements.  String  arrays — the 
kind  used  in  this  program  to  store  data — use  a  lot 
of  memory.  In  addition,  the  DATA  statements 
take  up  six  bytes  plus  one  byte  per  character.  If 
you  accumulate  a  lot  of  data,  an  expander  cartridge 
will  come  in  handy.  The  Indexer  is  written  to  run 
on  a  VIC  with  any  memory  configuration,  as  well 
as  on  the  Commodore  64. 

Tips  For  Data  Entry 

Subject:  Your  searches  will  usually  be  done  by 
article  subject,  so  keep  this  category  as  broad  as 
possible.  For  example,  let's  say  you  want  to  index 
various  articles  about  game  paddles.  Enter  all  of 
them  with  the  subject  "paddles,"  even  if  some 
are  about  drawing  with  paddles  and  others  about 
using  them  in  games.  That  way,  when  you  enter 
"paddles"  as  the  target  of  your  search,  the  index 
of  all  articles  on  this  subject  will  be  displayed. 

Spelling:  Watch  your  spelling,  and  be  consist- 
ent with  your  subject  category  names.  For  ex- 
ample, don't  enter  one  subject  as  "paddle"  and 
another  as  "paddles."  The  computer  will  see  these 
as  two  completely  different  categories. 

Memory:  As  stated  before,  The  Indexer  can 
use  a  lot  of  memory,  so  you  might  want  to  abbre- 
viate article  titles.  For  example,  the  GAZETTE  col- 
umn "Machine  Language  For  Beginners"  could  be 
entered  as  "ML  For  Beginners"  or  even  "Beg  ML." 

Although  this  program  was  written  as  an 
article  index,  it  can  be  adapted  for  other  uses.  The 
data  base  has  six  elements  and  can  search  by  any 
of  four  variables.  It  could  be  easily  adapted  for 
other  uses  such  as  a  birthday  reminder  or  an  elec- 
tronic phone  book.  The  applications  are  up  to  you. 

Set'  program  listing  on  page  151.  (>J) 


64KfowVIC  20 

CTflRflM 


SELECT-ARAM  BRINGS  TO  YOUR  VIC  20 
THE  POWER  THAT  ONLY  MEMORY  CAN 
PROVIDE. 

The  power  of  any  computer  is  measured  by  its 
memory  capacity.  The  more  memory  you  have, 
the  more  powerful  your  programs  can  become, 

SELECT- A- RAM  gives  your  VIC  20  the  power  of 
memory.  65,536  bytes  of  power  to  be  exact. 
Enough  programming  power  to  rival  any  Home 
computer. 

The  power  hungry  programmer  can  also  add 
more  memory.  Each  of  SELECT- A- RAM's  two 
expansion  slots  will  accept  any  amount  of  memory 
from  3K  to  128K. 

SELECTARAM's powerful  expansion  capabilities 
are  made  possible  by  a  technique  we  call  Soft 
Select.  Soft  Select  allows  your  VIC  20  to  perform 
many  sophisticated  functions  not  possible  with 
other  memory  expansion  devices,  ie,,  disk  drive 
emulation,  printer  spooling,  simultaneous  and 
interactive  program  execution  (to  name  just  a  few 
of  our  soon  to  be  released  packages). 


Bring  the  power  of  memory  to  your  VJC  20 
with  SELECT  A-  RAM. 


Call  or  write  for  additional  information  and  the 
dealer  nearest  you.  Direct  orders  accepted. 

DEALERS  INQUIRIES  INVITED 
Vic  20  is  a  Trade  Mark  of  Commodore  Electronics  Limited 


SELECT  ARAM 

()4K  Memory 

Two  Expansion  Slots 

Write  Protection 

Reset  Swjtch 

Expandable  with  64K  and  128K  Modules 

Soft  Select  Control 

Compatible  with   All   Program  Cartridges 

and  Hardware  Devices 
Provision  for  Optional  External  Power 
One  Year  Limited  Warranty 


Distributed  in  Canada  by 

PAX  SOFTWARE 

60  Hanson  Road,  Unit  133       Misstssauga.  Ontario  1  r>B  2Ph 
(416)  270-26.39 


ADVANCED-PROCESSOR-SYSTEMS 

PC)    Box  41006,  Austin,  TX.,  78745-0001,  (512)  282-8222 


INTS&TIPS 


Printing  Tables 


Pat  Slater 


If  you've  discovered  a  clever,  time-saving  technique,  or  a 

brief  but  effective  programming  shortcut,  send  it  to  "Hints  & 
Tips, "  do  COMPUTE!'*  GAZETTE.  //  we  use  it,  we'll  pay 
you  $35. 

One  of  the  limitations  of  Commodore  BASIC  is 
the  total  lack  of  formatted  PRINT  statements.  If 
you're  used  to  PRINT  with  format  or  PRINT 
USING,  it  may  seem  impossible  to  print  neatly 
aligned  tables  with  Commodore  BASIC. 

The  language  does  provide  TAB  and  SPC 
functions  for  screen  displays,  but  both  simply 
space  over  when  used  to  print  to  a  printer  or  a  file 
with  PRINT#.  The  programs  I've  included  will 
format  for  screen  or  printer,  depending  on  your 
input.  They're  especially  helpful  for  use  with  for- 
matting printed  output.  Let's  look  at  an  example: 

PRINT  AS;TAB(20);BS 

prints  BS  starting  in  column  20  regardless  of  the 
size  of  AS,  but 

PR1NT#4,A$;TA1S(20);B$ 

prints  AS,  skips  20  spaces  from  the  end  of  AS, 
then  prints  BS-  There's  no  telling  where  BS  will 
end  up  unless  you  know  the  size  of  AS.  This  being 
the  case,  you  must  find  a  way  to  count  spaces 
when  doing  formatted  printout. 

One  way  to  count  spaces  is  to  use  the  LEN 
function.  For  example,  the  statement  below  will 
place  AS  in  column  1,  BS  in  column  15,  and  CS  in 
column  30: 

I'R]NT#4,A$;TAH<14  -  LEN(AS»);B$;TAIS(  14  -  LEN 
(B$»;C$ 

The  following  program  uses  the  LEN  function 
to  align  rows  of  names: 

3  PRINT" ECLR} SCREEN    OR    PRINTER    S    OR    F":IN 
PUT    1$  srem   151 

4  IF    IS<>"S"AND    I$o"P"THEN3  :  rem    241 

5  IFI$="S"THENJ=3:G0T08  :rem    153 
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6  J=4 

8  OPEN4.J 

10  FOR  1=1  TO  5 

20  READ  A$,BS:IFI$="S"THEN35 

30  PRINT#4,A$;TAB(10-LEN{A$) 


;B$: 


35 
40 
50 

60 


PRINT#4,A$;SPC(10-LEN(A$));B$ 

NEXT  I 

DATA  WATTS,  SORENSON, 

NES 


DATA  BURL,  YATES,  RUVALDS, 
SIK 

When  executed,  the  program  prints: 


:rem  241 
:rem  20 

:rem  215 
:rem  22 

GOTO40 

: rem  214 
srem  19 

:rem  236 
MATTHEWS,  NG,  JO 

:rem  186 
KING,  REDLA 

:rem  132 


WATTS 
MATTHEWS 

fONES 
YATES 

KING 


SORENSON 

NG 

BURL 

RUVALDS 

REDLASIK 


If  you  use  this  method  to  align  numbers  (along 
with  STRS  to  convert  the  numbers  to  strings), 
several  problems  pop  up  as  shown  in  the  next 
example: 

3  PRINT" [CLR) PRINTER  OS  SCREEN  P  OR  S":IN 
PUTI$  :rem  151 

4  IF  I$0"P"ANDI$o"S"THEN  3  :rem  241 

5  IF  I$="S"THENK=3:GOT08  r rem  154 

6  K=4  :rem  242 
8  OPEN4,K  :rem  21 
10  FOR  N=l  TO  5  :rem  220 
20  READ  I,  J:IFI$="S"T1!EN35  :  rem  222 
30  PRINT#4, I;TAB(8-LEN(STRS(I) ) ) ;J:GOTO40 

:rem  199 
35  PRINTM,  I;SPC(8-LEN{STR$(I)  )  }f  J  srem  4 
40  NEXT  N  :rem  241 

50  DATA  78.66,  40.00,  139.30,  -77.22,  200 

0.00  :rem  213 

60  DATA  -142.91,  6.56,  12.50,  521.12,  9.9 

9  :rem  83 


This  program  prints: 


78.66 

139.3 

2000 

6.56 

521.12 


40 
-77.22 
-142.91 

12,5 

9.99 


Notice  that  the  numbers  are  aligned  on  the 
left  (at  the  sign  position)  rather  than  by  decimal 
point,  and  that  trailing  zeros  are  lost  after  the 
decimal  point.  To  make  the  individual  numbers 
appear  in  the  correct  format  (40  as  40.00,  for  ex- 
ample) you  can  convert  them  to  strings  as  follows: 

I$  =  STRSUNT(1»  +  "."  +  RIGHTS(STR$(I*lfJ0),2) 

The  first  term  gets  the  integer  part  of  the  number, 
next  the  decimal  is  added,  and  finally  it  is  neces- 
sary to  multiply  by  100  and  grab  the  last  two  digits 
to  keep  from  losing  trailing  zeros. 

Once  you  have  the  number  in  correct  format, 
use  the  LEN  function  to  count  spaces  and  tab 
before  printing  each  number  as  shown  in  the  ex- 
ample below: 


4 

5 

6 

8 

10 

20 

22 

24 

30 

40 
50 

60 


PRINT" (CLR) SCREEN  OR  PRINTER  S  OR  P" ; IN 
PUT  US  :rem  163 

IP  US<>"S"ANDUSo"P"THEN3         :rem  9 
IF  U$="S"THENK=3:G0T08  : rem  166 

K=4  :rem  242 

OPEN4,K  :rem  21 

FOR  N=l  TO  5  :rem  220 

READ  I, J  srem  61 

I$=STR$(lNT(l))+"."+RIGHTS(STRS(I*100) 
,2)  :rem  140 

J$=STR$(INT(j))+"."+RIGHT$(STR$(J*100) 
,2)  :rem  145 

PRINT&4, ""TAB(8-LEN{I$) ) ; 1$ ;TAB( 17-LEN 


<J$)>;J$ 

NEXT  N 

DATA  78.66, 

0.00 

DATA  -142.91, 

9 


40.00,  139.30,  -77 
6.56,  12.50,  521 


:  rem 
;rem 
,22, 
:rem 
,12, 
:  rem 


200 
241 
200 
213 
9.9 
83 


Now  you  get  the  printed  numbers  aligned  by 
decimal  position: 


78,66 
139.30 

2000.00 

6.56 

■ill.  12 


40.00 

-78.22 

-143.91 

12.50 

9.99 


Using  LEN  to  count  spaces  this  way  allows 
you  to  print  neat-looking  tables  of  words  and/or 
numbers.  Though  a  lot  of  functions  are  involved, 
it  doesn't  take  nearly  as  much  time  as  the  printout 
process,  so  it  won't  slow  down  your  program.  (Qf 


YOU  HAVE  BEEN  GIVEN  $25,000 

TO  START  YOUR  OWN 


WITH  YOUR  C-64 


*7- 


Do  you  have  •nouflh  BUSINESS  SAVVY  to; 

*Ruy  lupptioi      'Buy  utiuiprnonl      'Maiipga  inventoNoi .,? 

Ara  you  AOORCSSIVE  anDuflh  toi 

'HJr»„  lire  and  cN * t ifil I (1 w  personnel      *Adw*rti»ft  offeeMvaty f 

Ar*  you  CUNHING  onougK  to  nondlot 

"To^cv  &  -muriincc      "Security  problems      *  FJ  uc  Tu  □  1 1  no,  market  pin'i'i      ' 

If  so  you  jui!  may  be  SHARP  anpvgh  to  stay  in  huiinta 

and  h*COme  a  garden  xhavef  TYCOON!  * 

A  FASClNATfNG  &USIMFSS  SIMULATION  GAME  NOW  AVAILABLE  AT  INTRODUCTORY  PRICES' 

Tap*     »I7,M  Olic      iM.M 

rUHRO  SOFTWARE     P.O.  Box  11722     Rock  Hill,  5.C.  31731 

'lnduJ»i  lh'ppiJng  I  handling     So^iPh  CgrolifiQ  r#tlrj*nl">  QijJ   I*.,   *olct  (pi 


Which 
Software  Is 

Worth  The 
Money? 

Find  out  in: 
The  SOFTWARE 
BUYER'S  REPORT  " 

The  newsletter  that  gives  you 
the  real  story  behind  the  software  hype. 

•  No  advertising  means  honest,  unbiased  evaluations 
■  Topnotch  reviewers  offer  opinions  you  can  trust 

*  Get  in-depth  reviews  of  software  for: 

Games  and  Enreriainmeni  ■  Graphics  and  Music  •  Home 

Applications  •  Education  *  Business  •  Programming  Aids 

•Telecommunications  -And more' 

NEW!!  COMMODORE 
64/ VIC  20  EDITION 

Devoted  only  to  software  for  Commodore's  home  computers. 
BY  SUBSCRIPTION  ONLY— NOT 
AVAILABLE  ON  NEWSSTANDS 

Published  ten  times  a  year.    f£*tj«\  charter  rate 
Subscription  rate  S35.00  a  year  U.S.  ^KeHteJr? 
idianandOw  $Z9-  9S~ 

Start  Getting  The 
Most  Out  Of  Your 
Software  Dollar! 

FILL  OUT  AND  MAIL  TODAY  OR  CALL 
800-336-3535  TO  ORDER  |ln  Penna.  215-691-1912) 


□  YESI  1  warn  lo  iubscnbel  I've  enclosed  my  check  or  money 

order  for  S29  9S 

(Payable  to  n  ■■  Softw  ■■  epi  »t) 

P  Send  me  more  information  right  <iway 


Name 


Phone  (area  code) 

Address 

City    

Computer  Model:  □  VIC  20  □  Commodore  64 


State 


Zip 


The  SOFTWARE  BUYER'S  REPORT 

824  Eighth  Street 
Bethlehem,  PA  18018 


CHARLES  BRANNON 
PROGRAM  EDITOR 


HORIZONS:  64 


Apple  recently  reduced  the  price  of  its  Lisa  to 
around  $8000.  Lisa,  whose  acronym  supposedly 
stands  for  Local  Integrated  Software  Architecture, 
was  actually  just  the  in-house  code  name  for  the 
machine  (insiders  claim  it  was  named  after  a 
girlfriend  of  Steve  Wozniak,  Apple  co-founder). 
The  name  of  the  machine  was  leaked  so  exten- 
sively that  Apple  was  forced  to  market  with  the 
code  name,  hence  the  apocryphal  acronym, 

Lisa  is  a  dedicated  workstation  with  a  mouse, 
ultra-high  resolution  graphics,  and  icons  (pictorial 
diagrams).  "Dedicated  workstation"  means  that 
there  is  one  user  per  computer,  rather  than  many 
users  sharing  a  large  computer  via  separate  termi- 
nals. The  advantage  of  a  dedicated  workstation  is 
its  exclusivity,  privacy,  and  speed  of  access.  The 
entire  power  of  the  computer  can  be  dedicated  to 
one  user,  rather  than  spread  out  among  many. 
This  is  the  primary  concept  behind  so-called  per- 
sonal computers. 

The  disadvantage  of  dedicated  systems  sur- 
faces in  environments  where  people  need  to  share 
and  exchange  information.  That  is  why  Local 
Area  Networks  (LANs)  are  hooking  up  these  small 
computers,  usually  to  a  central  hard  disk.  A  LAN 
doesn't  violate  the  concept  of  personal  computers; 
it  just  broadens  their  communication  capabilities. 
Some  companies  are  going  too  far,  though,  and 
we  are  seeing  expensive  business  microcomputers 
which  are  mediocre  mimics  of  the  large,  powerful, 
but  impersonal  minicomputers  and  mainframes. 

Apple  claims  you  can  start  using  Lisa  within 
20  minutes,  without  any  instruction  manuals.  If 
you  remember  your  first  experience  with  a  com- 
puter, you  may  be  inclined  to  doubt  this.  Yet 
there's  something  new  here.  Apple  has  drawn  on 
the  experience  of  research  at  Xerox's  Palo  Alto 
Research  Center  (PARC).  The  Lisa  is  an  intuitively 
understandable  system. 

Most  of  this  "user-friendliness"  {to  use  a 
term  that  has  become  banal  in  the  industry)  comes 
from  Lisa's  linked  menus.  The  menus  lead  you 
from  one  option  to  another  and  are  primarily  pic- 
torial, drawing  on  the  Lisa's  very  high  resolution 
capability  (pun  somewhat  intended). 

A  highly  visible  characteristic  of  the  Lisa  is 
the  mouse,  used  to  make  selections  as  vou  move 
the  cursor  about.  The  idea  is  the  same  as  a  joystick 
or  trackball  (some  mouses  are  merely  upside- 
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down  trackballs).  Using  the  mouse  is  supposed  to 
be  more  natural  than  pressing  cursor  control  keys. 
Many  people  complain  that  the  mouse  is  a  gim- 
mick, taking  up  extra  desk  space  and  requiring 
you  to  take  your  hands  away  from  the  keyboard 
to  move  the  cursor. 

Both  hardware  and  software  companies  were 
impressed  by  and  envious  of  the  Lisa.  Lisa  was 
really  a  new  product,  an  innovation  in  an  industry 
of  "me,  too"  computers  and  software.  Well,  the 
copycats  didn't  waste  any  time.  Companies  began 
developing  their  own  integrated  software,  com- 
plete with  icons,  windows,  and  even  mouses. 
The  effort  is  Promethean,  as  companies  try  to 
bring  the  $8000  capability  of  the  Lisa  to  your  S2000 
micro  (of  course,  they  charge  you  only  S800  to 
$1000  for  the  software). 


Preparing  to  type  with  Magic  Desk  I. 

Commodore's  Reaction: 
Magic  Desk  I 

Commodore  also  caught  icon-fever.  At  the  January 
1983  Consumer  Electronics  Show  (CES),  they 
introduced  Magic  Desk  I,  a  software  package  for 
the  64  which  was  not  available  until  around 
November.  The  price  is  down-to-earth,  with  a 
suggested  retail  of  S60-S70,  What  Commodore 
and  others  (Microsoft  [Windows],  VisiCorp  [Visi 
On],  Quarterdesk  Software  [DesQ])  seem  to  forget 
is  that  Apple  spent  the  equivalent  of  a  hundred 
man-years  developing  Lisa.  Some  integrated  pro- 


THE  MASTER  KEY 
unlocks  the  door  to  the  Commodore  64 


\ 


a* 


The  Gotewoy  to  Five  Worlds     1 29,95 


Word  Processing 
File  Management 
Home  Finance 
Electronic  Paintbrush 
Terrestrial  Game 


International  Tri  Miao 
1010  N.  BaraviaSre.  G 
Orange,  CA  92667 
714-771-4038 


grams  may  be  capable,  others  might  just  copy 
Lisa's  gimmicks. 

Magic  Desk  may  be  right  for  some  people, 
but  it's  not  for  everyone.  When  you  plug  in  the 
Magic  Desk  cartridge  and  turn  it  on,  a  picture  of  a 
desk  appears.  On  top  of  the  desk  are  several  icons: 
pictures  of  a  typewriter,  telephone,  calculator, 
card  file,  and  ledger.  Under  the  desk  is  a  waste- 
basket,  and  to  the  right  is  a  filing  cabinet.  A  digital 
clock  on  top  of  the  filing  cabinet  keeps  time.  A 
door  to  the  left  "opens"  the  way  to  new  appli- 
cations. Above  this  scene  hovers  a  ghostly  hand, 
your  cursor. 


Creating  text  in  the  typewriter  mode. 

With  the  joystick,  you  move  the  hand  to  the 
appropriate  picture  and  press  the  fire  button  to 
select  it.  Magic  Desk  I  supports  only  a  few  of  the 
icons:  the  typewriter,  wastebasket,  filing  cabinet, 
and  digital  clock.  Magic  Desk  II  will  support  the 
ledger  (spreadsheet)  and  the  calculator.  Presum- 
ably, the  phone  will  be  used  with  a  modem,  and 
the  card-file  as  a  simple  data  base  manager. 

Point  the  hand  at  the  typewriter  and  the 
screen  transforms  into  a  video  typewriter.  Indeed, 
it  works  just  like  a  modern  electronic  typewriter, 
complete  with  special  effects.  As  you  type,  the 
screen  scrolls  horizontally.  The  margins  are  always 
visible,  and  you  can  change  them  at  any  time. 
With  the  function  keys  you  can  set,  clear,  and 
move  to  tab  stops.  When  you  press  RETURN,  the 
paper  pops  up  a  line  and  the  typeball  whirs  to  the 
beginning  of  the  next  line,  complete  with  sound 
effects.  This  is  perhaps  a  bit  too  cute. 

After  you  type  your  letter,  you  can  return  to 
the  desk  and  file  the  letter.  With  the  hand,  you 
can  open  one  of  the  three  file  cabinets.  Each 
cabinet  holds  ten  file  folders,  each  of  which  can 
hold  ten  pages  of  text.  What  you  are  really  doing 
is  loading  and  saving  your  files  to  disk,  but  this  is 
supposedly  transparent.  You  just  select  a  folder, 
name  it  if  you  like,  put  your  typing  into  it,  or  re- 
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trieve  a  page  from  it.  Any  of  these  operations  will 
cause  a  picture  of  the  disk  drive  to  appear,  and 
the  actual  drive  will  whir  and  click  a  surprisingly 
long  time,  considering  that  you  are  only  trying  to 
file  one  page.  I  found  this  quite  frustrating. 

This  is  also  where  Magic  Desk  gets  confusing. 
None  of  the  icons  are  labeled,  so  it's  like  reading 
those  pictorial  traffic  signs  in  a  foreign  country.  If 
you  get  stuck,  you  can  press  the  Commodore 
logo  key  and  a  help  screen  will  appear.  The  icons 
you  are  using  will  be  named;  you  can  select  any 
of  them  with  the  hand  to  get  a  more  complete 
description. 

I  found  Magic  Desk  novel  and  rather  easy  to 
use,  though  the  pictures  are  both  a  blessing  and  a 
curse  (I  would  prefer  an  English  menu  of  choices). 
What  you  gain  in  ease  of  use  and  intuitive  opera- 
tion, you  lose  in  power,  speed,  and  efficiency. 
Compared  with  the  "old  way"  of  doing  things, 
Magic  Desk  is  limited  once  you're  no  longer  a 
beginner.  It  slows  you  down  as  you  pursue  a  task 
through  a  chain  of  menus.  The  video  typewriter 
has  almost  none  of  the  advantages  of  a  true  word 
processor.  It's  just  like  an  IBM  Selectric.  You  don't 
have  to  learn  anything,  but  you  don't  have  a 
tenth  of  the  flexibility  and  power  of  even  a  mild- 
mannered  word  processor.  Apparently,  this  is 
not  a  problem  in  Commodore's  eyes.  Indeed,  the 
press  release  sells  this  similarity,  emphasizing 
a  typewriter  is  not  a  word  processor,  and  implies 
you're  better  off  that  way. 

Nonetheless,  Magic  Desk  can  be  an  excellent 
nonintimidating  way  to  learn  to  use  a  computer. 
Magic  Desk  may  change  the  mind  of  anyone  who 
"hates  computers."  It  lets  you  perform  basic  com- 
puter tasks  with  a  minimum  of  fuss,  and  can  lead 
you  into  more  powerful  applications  later.  Despite 
its  limitations.  Magic  Desk  points  the  way  to  the 
future  of  home  computer  software. 

Magic  Desk  1 

Commodore  Business  Machines 

1200  Wilson  Drive 

West  Chester,  PA  19580  $60-570  © 
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Commodore  64 

Make  tax  time  easy  with  fast,  accu- 
rate &  generous  software.  Designed 
lor  professionals  to  compute  lowest 
rate  from  tax  tables,  X,  Y,  Z  8  5-year 
avg,  Spreadsheet  design  prints 
results  for  Epson  &  other  serial  bus 
port  printers.  Tax  forms  included. 
Visa  &  MasterCharge  accepted. 

anno 


DEDUCTIBLE 


*poy  .y  o  i 


muL 


Com-rxxJore  U  is  a  iradema'*  ol  Coffimotsora 
Boi  w*  Waynes  Epson  a  trademark  ol 
Epwi  t-cKi !-:  ©Sa-j^iSB! 


Computer  Software 
&  Consulting 
7510  Fox  ridge  Way 
Anchorage,  Alaska  99502 
(907)  349-74B5 


Commodore  64 

and 

VIC-20 


Telecommunications 


with  a  difference! 

Unexcelled  communications  power  and 
compatibility,  especially  for  professionals  and 
serious  computer  users.  Look  us  over;  SuperTerm 
isn't  just  "another"  terminal  program.  Like  our 
famous  Terminal-40,  it's  the  one  others  will  be 
Judged  by. 

•  EMU  LATI  ON — M  os  t  pop  u  lar  t  e  rm  in  a  I  protocols : 
cursor  addressing,  clear,  home,  etc. 

•  EDITING  —  Full-screen  editing  of  Receive  Buffer 

•  UP/DOWNLOAD  FORMATS -CBM,  Xon-Xoff, 
ACK-NAK,  CompuServe,  etc. 

•  FLEXIBILITY  -Select  baud,  duplex,  parity,  stopbits, 
etc.  Even  work  off-line,  then  upload  to  system! 

■  DISPLAY  MODES -40  column;  80/132  with 
side-scrolling 

•  FUNCTION  KEYS -8  standard,  52  user-defined 

•  BUFFERS— Receive,  Transmit,  Program,  and  Screen 

■  PRINTING  — Continuous  printing  with  Smart  ASCII 
interface  and  parallel  printer,  buffered  printing 
otherwise 

•  DISK  SUPPORT- Directory,  Copy,  Rename,  Scratch 

Options  are  selected  by  menus  and  EXEC  file.  Software 
on  disk  with  special  cartridge  module.  Compatible  with 
CBM  and  HES  Automodems;  select  ORIG/ANS  mode, 
manual  or  autodial. 

Write  for  the  full  story  on  SuperTerm;  or.  If  you 
already  want  that  difference,  order  today  I 

Requires:  Commodore  6*  or  VIC-20,  disk  drive  or  Darasette.  and 

compatible  modem.  VIC  version  requires  I6K  memory  expansion.  Please 
specify  VIC  or  64  when  ordering. 


Smart  ASCII  Pius  . .  .  $59  ■ 

The  only  Interface  which  support!  streaming  —sending 
characters  simultaneously  to  the  screen  and  printer  -  with 
SuperTerm. 

Also  great  for  use  with  your  own  programs  or  most 
application  programs,  i.e.,  word  processors.  Print  modes: 
CBM  Graphics  |w/many  dot-addr  printers),  TRANSLATE, 
DaisyTRANSLATE,  CBM/True  ASCII,  and  PIPELINE. 

Complete  with  printer  cable  and  manual.  On  disk  or  cassette. 

VIC  20  and  Commodore  61  are  trademarks  of  Commodore  Electronics.  Lid. 


(816)  333-7200 

MIDWEST 
MICRO  mc 


Send  far  a  tree  brochure. 

MAIL  ORDER:  Add  I1.50  snipping  and 
handling  (J3.S0  lor  COD);  ViSA/Mastereaid 
accepted  (card*  and  exp.  date].  MO  residents 

add  5.625%  sales  tax.  Foreign  0*15  payable 
OSS.  U.S.  Bank  ONLY;  add  S3  stiprhndig. 
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COMMODORE  64^ 
American  Peripherals 


NEW  ARRIVALS 
(disk  or  tape) 

1030    LANGUAGE   TRANSLATOR 

English  to  German.         $10 
584      PIANO-SI  S19.95 

Change  your  64  to  a   piano. 
126      TRAFFIC   SIGNALS    $14.95 

Teach  your  child  safety, 
1110   POCO  1211.95 

Like  Q-Bert. 
S96      TELLING    TIME        $111.95 

Hi -res   Round  clock. 
1249  TYPESETTER  519.50 

Hi-res  printing  on   1525. 
1276   ELIZA  519.95 

Has  conversation  with  you. 

1016  ELECTRONIC   CRADEBOOK 
Teacher  special   $24.95 

571      LOCATION   OF   COUNTRIES 
Geography     Sill, 95 

575  CANCER  515.95 
Kids  and   smoking. 

762   ELEMENTARY  ELECTRICITY 

51h-9th   gr.      524.95 
1264   TRAVEL  ABOUT    AMERICA 

Series  of  7  programs  on 
Ceog,    and    History    5150. 

576  SOUND    EFFECTS    515.95 
Demo  and   prog.    aid. 

139   STRATKCLYDE    BASIC 

12  lessons   >  lest.   $3M.95 
10tl(   GEOMETRY   SERIES 
20  progs,   with  hi -res 
Disk   5300     Tape   5400 
12a   TEST   MAKER    524.95 

Makes  multi-choice  tests. 
101B      LARGE   NUMBER   ADDITION 

Great  display   524.95 
1275   VIC    20    EMULATOR    534,95 

Run    most   VICs  on    64. 
1246    INTERRUPT   MUSIC    EDITOR 

Machine  code.      529. 9S 

1017  MORTGAGE      519.95 
Does  all  loan  calculations. 

1015  ANIMAL-VEGETABLE 

6yr.-10yr.     $14.9$ 
12B5  MAESTRO      534.95 

All  conceivable  music  and 

sound  functions  in   1   program. 
12B0  WATTS   and    AMPS    $14,95 

Household  elec-   calcs. 
SS0  MATCHING  SHAPES 

I. (3.    Builder     $14.95 


EDUCATIONAL 
(disk  or  tape) 

644  Type   Tutor   $19.95 

645  Assembly   Language 
Tutor   $14.95 

687  Fractional   Parts   514. 95 

902   Estimating    Fractions    $14.95 

695  Tutor  Math   $14. 9S 

870  Square  Root   Trainer   514.95 
699  Counting   Shapes    $14.95 
694  Money   Addition   $14.95 

689  Math   Dice    14.95 
678  Speed  Read   $14.95 

643  Maps  and   Capitals   $19.95 
645   Sprite   Editor    $19.95 
904  Sound  Synthesizer 
Tutor   19.95 

696  Diagramming 
Sentences   $14.95 

690  More/Less   514.95 

688  Batting  Averages   S14.S5 
802  TicTac  Math  $16.95 

904  Balancing   Equations   514.95 

905  Missing    Letter    514.95 
364   Cradebook    515.00 

610  French   1-4   $80. QQ 

611  Spanish    1  -4    580.00 

807  English    Invaders    516.95 

809  Munchword    516.95 

812  Puss    In    Boot    $20.00 

813  Word  Factory   $20.00 
660  Hang   Spell    514.95 

905  Division   Drill   14.95 

906  Multiple.   Drill   514.95 

907  Addition   Drill    514.95 

908  Subtraction   Drill    514.95 

910  Simon  Says   14.95 

911  Adding    Fractions    514,95 

912  Punctuation    514.95 


EDUCATtONAL 

Series  on  disk 

Computer  Science   (30  pr.)    5350 
HS   Biology    (70  programs}   S500 
HS   Chemistry    [40  programs)    5450 
HS    Physics    (60  programs)    5475 
HS   SAT   Drill    (60  programs)   599 
Elem.   Social  Studies   (18  pr , )    5225 
Elem,   Science   (IB  programs)   5225 
Further  Freneh   (12  pr.)   $95 
Further  Spanish   (12   pr.)   $95 
Statistics   (12  programs)   $95 


ORDERINC    BLANK 

To  :   American   Peripherals 

122   Bangor    Street  516   226    5849 

Lindenhurst,    NY    11757 

Ship   to:        Name 

Street 

Town.   State,   ZIP 

Please  send  your  complete  64K  catalog.       Over  600  programs. 

ITEM  DESCRIPTION  PRICE 

(specify  disk  or  tape) 


Charge  lo  my  credit  card  NY   Slate  Residents   7.251  tax   5 

....    VISA         MASTER    CARD  COD   add    52.00   $ 

Account   t  ..................  foreign  orders  add   $2.00  $.,.,..... 

Exp.   date   Shippinq  $..1.75... 

Total    Amount    5,  .......  . 

Signature   , 


Commodore  64  is  a   trademark  of  Commodore  Business  Machines,    Inc. 
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SIMPLE  ANSWERS  TO  COMMON  QUESTIONS 


TOM  R.HALFHILL,  EDITOR, 
COMPUTED  PC  &  PCjr  Magazine 


Each  month,  COMPUTED  gazette  will  tackle  some 
questions  commonly  asked  by  new  VIC-20fCommodore 

64  user?  and  In/  people  shopping  for  llwir  first  home 
computer. 


JM ■  I've  h ea rd  about  em ula tors  a va Ha ble  for 
the  Commodore  64  that  allow  it  to  run  ail  Apple 
software  and  software  for  other  computers,  too. 
I've  seen  some  magazine  advertisements  by  mail- 
order companies  for  emulators.  Do  you  plan  to 
review  any  of  these  emulators? 

JCL*  We  haven't  reviewed  any  emulators  be- 
cause, at  this  writing,  they  simply  don't  exist. 
Furthermore,  we  urge  readers  to  be  cautious  about 
emulators — a  lot  of  misinformation  is  circulating. 

We,  too,  have  heard  all  the  stories  about 
Apple  emulators  for  the  Commodore  64,  and  have 
seen  the  ads  in  magazines.  Usually  we  telephone 
the  company  advertising  the  emulator  and  try  to 
obtain  one  for  testing  and  review  purposes.  Al- 
most always  the  response  is  something  like, 
"They'll  be  ready  for  delivery  within  a  few  weeks." 
Then  several  months  go  by,  and  still  no  emulator. 
Some  companies  have  been  promising  to  deliver 
emulators  for  more  than  a  year.  We  have  yet  to 
see  one. 

Heed  this  advice:  Do  not  order  or  buy  an  emulator 
unless  yon  first  see  an  actual,  working  model.  Other- 
wise, you  will  probably  be  disappointed. 

Why  are  we  so  emphatic?  Because  true  emu- 
lation of  another  computer  is  not  something  that 
is  easily  accomplished.  There  are  hundreds  of 
problems  to  be  overcome,  especially  when  de- 
signing something  like  an  Apple  emulator  for  the 
Commodore  64.  Yet,  some  companies  persist  in 
promising — and  even  advertising — Apple 
emulators. 

Nearly  all  these  emulator  rumors  can  be  indi- 
rectly traced  to  a  statement  made  by  Commodore 
back  in  early  1982.  At  that  time,  Commodore 
hinted  that  it  intended  to  introduce  a  personal 
computer  that  could  emulate  other  popular  com- 
puters on  the  market,  such  as  the  Apple  and  Atari. 
A  widely  read  article  to  this  effect  was  published 
in  the  Wall  Street  Journal.  Everyone  was  excited  by 
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the  prospect,  but  eventually  Commodore  quietly 
shelved  the  idea — probably  because  it  was  too 
hard  to  accomplish  at  an  affordable  price. 

In  the  meantime,  the  Commodore  64  was 
introduced.  Unfortunately,  some  people  jumped 
to  the  conclusion  that  this  was  the  "chameleon 
computer"  Commodore  had  hinted  about.  Within 
a  few  months,  independent  companies  began 
announcing  and  even  advertising  Apple  emu- 
lators for  the  64.  The  idea  of  an  Apple  emulator 
was  very  attractive  to  new  64  owners  because 
almost  no  software  was  available  for  the  computer. 
But  there  are  formidable  obstacles  to  making  an 
Apple  emulator  for  the  64. 

It's  true  Ilia  I  the  computers  are  superficially 
similar — both  are40-column  color  computers  with 
64 K  Random  Access  Memory  (RAM),  Microsoft 
BASIC,  and  compatible  microprocessor  chips  (the 
6502/6510).  But  the  memory'  maps  are  quite  differ- 
ent, and  the  Apple  lacks  many  of  the  64's  special 
features  (sprites,  16-color  high-resolution 
graphics,  polyphonic  synthesized  sound,  etc.). 
This  is  important  because  much  commercial  soft- 
ware these  days  is  written  entirely  in  machine 
language,  including  almost  all  games.  ML  pro- 
grams are  specific  to  the  memory  configuration  of 
the  machine  on  which  they  were  written.  Even 
seemingly  slight  changes  to  the  native  computer's 
operating  system  or  memory  layout  (such  as  add- 
ing expanders  to  a  V1C-20)  can  render  some  ML 
programs  unusable.  The  problems  of  emulating  a 
totally  foreign  computer  are  infinitely  greater. 

Even  if  an  Apple  emulator  were  developed, 
there  would  be  one  more  problem.  Almost  all 
Apple  software  is  published  on  floppy  disks.  The 
Commodore  Disk  Operating  System  (DOS)  is  in- 
compatible with  the  Apple  DOS.  And  the  data  is 
stored  in  different  formats.  An  Apple  emulator 
would  do  you  no  good  unless  you  also  had  an 
Apple  disk  drive  emulator.  This  would  almost 
certainly  require  that  you  buy  a  separate  disk  drive 
and  compatible  interface  cables. 

In  the  meantime,  let  the  buyer  beware.  We 
heard  of  one  person  who  paid  more  than  $100  for 
an  "Apple  emulator"  for  his  64  and  got  nothing 
more  than  a  cable  which  allowed  BASIC  programs    l 
to  be  transferred  between  the  computers.  The 
task  of  translating  the  programs  so  thev  would 
run  on  the  64  was  left  up  to  him,  of  course.  @ 


PROGRAMS  DESCRIPTION 


LEADER  IN  SOFTWARE 
FOR  THE  COMMODORE  64 


BUSINESS 


MANAGEMENT  SYSTEM  64  —  This  integrated  business  program  gives  you  the  computer  power  once 
reserved  for  large  corporations.  It  stores  the  names  of  items,  prices,  item  numbers  and  does  all  calcula- 
tions including  tax,  shipping  costs  and  discounts.  It  prints  invoices  and  packing  slips  in  addition  to  short- 
term  and  long-term  reports.  Management  System  64  even  prints  mailing  labels  from  customer  files.  Know 
what's  selling,  whose  buying  and  forget  costly,  time  consuming  inventory  close  downs.  $69.95 

FINANCE  CALC  64  —  The  leader  in  business  and  home  financial  analysis.  You  can  have  up  to  1440 
itemized  expenses  and  print  1085  different  financial  reports  and  bar  graphs  as  it  stores  and  compares  up 
to  12  different  budgets  at  once.  This  powerful  program  is  a  must  for  the  rising  entrepreneur.  $49.95 

DATA  BASE  64  —  A  perfect  record  system  for  any  business  or  home.  It  can  store  up  to  1200  records  for 
each  file,  Each  record  has  a  capability  of  20  fields  of  information.  The  program  has  multi-level  sorting  which 
facilitates  quick  and  easy  recalling  of  information  and  printing  of  labels  and  reports.  It  even  allows  you 
to  create  personal  print  formats.  Data  Base  64  also  can  be  used  with  popular  word  processing  programs. 
$59.95 

HOME 

FAMILY  PAC  —  Three  of  the  finest  home  programs  available:  $59.95 

•  CHECKBOOK  SYSTEM  64  —  This  easy  to  use  program  makes  the  balancing  of  confusing  checkbook  finances 
a  breeze.  It  handles  over  1300  transactions  of  up  to  40  expense  categories.  Checkbook  System  64  also  prints 
statements,  reports  and  all  types  of  checks.  Pay  your  bills  by  computer!  Also  available  as  a  separate  program 
$39.95 

•  RECIPE  KEEPER  64  —  This  program  is  a  handy  kitchen  aid  that  does  more  that  "just  file.  It  can  print 
out  ingredients  and  directions,  as  well  as  calculate  ingredient  amounts  for  different  serving  sizes.  The 
program  comes  complete  with  a  mini-word  processing  section  that  enables  you  to  type  in  up  to  14  lines 
of  directions.  $39.95 

•  SPACE  MATH  64  —  This  educational  program  makes  addition,  substraction,  multiplication  and  division 
learning  fun  and  entertaining  for  youngsters.  Solve  math  problems,  explore  the  universe,  dance  to  the  music 
and  watch  the  show.  $29.95 

ENTERTAINMENT 

STUDIO  64  —  Roll  over  Beethoven,  now  anyone  can  create  music  as  expressive  and  sophisticated  as  the 
most  advanced  programmers! !  With  Studio  64,  the  computer  does  all  the  work  while  you  play  and  enjoy. 
It  is  the  only  music  program  available  that  allows  you  to  create  music  without  any  programming  knowledge. 
Just  play  and  the  computer  will  instantly  write  the  music  on  the  screen.  Enter  up  to  3  voices  and  choose 
from  4  wave  forms  on  any  voice.  Play  your  compositions  at  different  speeds  and  filter  settings  with  syn- 
thesized drum  rhythms!  It  will  save  and  recall,  add  music  to  your  own  programs  and  print  lead  sheets. 
Music  is  only  as  far  away  as  your  C64,  Disk/Cass. $39.95 

GAME  DESIGNER  64  —  This  package  contains  everything  you  need  to  design  colorful  game  characters, 
backgrounds  and  entire  screens.  Animate  up  to  16  sprites  on  the  background  of  your  choice.  Add  it  to 
your  own  program.  The  limits  are  your  own  creativity.  Combine  it  with  Studio  64  to  create  any  game 
imaginable.  Power  game  sub-routine  included.  Disk/Cass. $39.95 


—   All  programs  come  in  disk  unless  otherwise  indicated.  — 


WHEN  THE  DUST  SETTLES 
THE  QUALITY  REMAINS 


MTEOR 


£322-4  Sunland  Boulevard      •      Sun  Valley.  Calif  ornia  B1352     •      Phone    [213]  760-6646 


A  Guide  To 
Commodore  User  Groups 

Part  1 

Kathy  Yakal,  Editorial  Assistant  to  be  changed  or  deleted,  please  contact  us  so 

that  we  may  keep  our  records  current. 

In  most  cases,  contact  people  have  chosen  to 
Here  is  an  updated  list  of  Commodore  user  groups     list  their  home  addresses  and  telephone  numbers, 
throughout  the  world.  If  you  have  a  group  that         When  writing  to  them  for  information,  please 
you  would  like  listed  here,  or  if  your  listing  needs     enclose  a  self-addressed,  stamped  envelope. 


ALABAMA 

Commodore  User  Group  of 

DUG  (Danville  User  Group) 

Arizona 

Kent  E.  Davis 

Birmingham  Commodore 

Doug  Peters 
PO.  Bo*  21291 

185  Front  St.,  Suite  106 

Computer  Club 

Danville,  CA  94326 

Harrv  Jones 

Phoenix,  AZ  85036 

415'820-1222 

4845  Aviv  B,  Lot  715 

602/831-1534 

Birmingham,  AI.  35208 

Napa  Valley  Commodore 

205923-9260 

AUSTRALIA 

Computer  Club 
Mick  Winter 

1  lunlsi !  I  it-  Alabama  Commodore 

PO,  Box  2935 

Komputer  Society  (MACKS) 
Hal  Carev 

Australian  Computer  Education 
Association 

^iiuntville,  CA  94599 
707/944-2797 

9002BerclairRd. 

P.O.  Box  194 

Huntsville,  AI.  35802 

Corinda  4075,  Old  Australia 

PALS 

205/883-0223 

Jo  Johnson 

CALIFORNIA 

886  S.  K 

Shoals  Commodore  User  Group 

Livermore,  CA  94550 

Warren  Pratt 

B  &  S  64-I'ET  User  Group 

WW  W.  6th  St. 

Bryan  Goldschlag 

Peninsula  Commodore  User 

Sheffield,  AL  35660 

4e  Banbridge  PI. 
Pleasant  Hill   I  A  94523 

Group 
Timothy  Awry 

205  381-1561 

Walker  Area  Computer  Club 

415  938-0764 

549  Old  County  Rd. 
San  Carlos,  CA'  94070 

(WACO 

California  Area  Commodore 

415'593-7697 

Daniel  McGuIre 

Terminal  User  Society 

89  MeCrory  St. 

(CACTUS* 

PET-On-I'he-Air 

Cordova,  Al.  355511 

Darren  L.  1  Fall 

Max  J.  Babin 

205/483-7833 

PO.  Box  1277 

525  Crestlake  Dr. 

Alt.)  I.uma,  CA  91701 

San  Francisco,  CA  94 132 

ALASKA 

714/947-0742 

Sacramento  Commodore 

COMFOOH-T 

Central  Coast  Commodore  User 

Computer  Club 

Paul  {Mercer 

Group 

Robvn  W.  Graves 

PO.  Box  1 18 

Gilbert  Vela 

8120"  Sundance  Dr. 

Old  Harbor,  A  K 99h43 

4237  Plumeria  Ct. 

Orangev ale.  CA  95662 

907a86-2253 

Santa  Maria,  CA  93455 
805/937-4174 

San  Fernando  Valley  Commodore 
User  Croup  (SFVCUG) 

ARIZONA 

C-64  Users  E  &  R 

Thomas  Lynch 

215  VV.  1st  St.,  Suite  10548 

21208  Nashville 

Arizona  VIC  and  M  Users 

Tustin,  CA  92680 

Chateworth,  CA  91311 

Tom  Monson 

21 3709-4736 

904  W.  Marlboro  Cir. 

Commodore  64  West 

Chandler,  AZ  85224 

Don  Campbell 

San  Francisco  Commodore  Users 

602/963-6149 

2917  Colorado  Ave. 

Group 

Santa  Monica,  CA  WHIM 

Roger  Tierce 

278- 27th  Ave.  #  103 

Catalina  Commodore  Computer 

213'828-9308 

Club 

San  Francisco,  CA  94121 

George  A.  Pope 

Diablo  Valley  Commodore  User 

415  387-0225 

2012  Ave.  Gufllermo 

Group 

Tucson,  AZ  85710 

Ben  Braver 

San  Luis  Obispo  VIC-20/64 

762  Ruth  Dr. 

Computer  Club 

1766  9th  St. 

Commodore  User  Group 

Pleasant  Hill,  CA  94523 

Michael  Stephany 

415/671-0145 

Los  Osos,  CA  93402 

4578  Monarch  Dr. 

805/528-3371 

Sierra  Vista,  AZ  85635 

134     COMPUWs  Gazette    March  1984 


So.  Cal.  20/64  Users  Group 
Star  Route  Box  1-C 
Pine  Valley,  CA  92061 
619/473-8087 

South  Bay  Commodore  64  Users 

Group 
Q.J.  Miguel  Gallego  Garcia 
RO.  Box  3193 
San  Ysidro,  CA  95073 

South  Orange  County  User  Group 

Steve  Winier 

2314  Monk'  Cristo 

San  Clemente,  CA  92672 

SPHINX 

Richard  L.  I  leinze 
1240  Mills  St.  Apt.  4 
Menln  Park,  CA  94025 
41S325-0127 

Twenty/Sixty-Four 
Don  Cracraft 
RO.  Box  18473 
San  Jose,  CA  95158 
408/264-2064 

Valley  Computer  Club 
Dr.  Evan  M.  Thompson 
661  Meadowlark  Dr. 
Turlock,  CA  95380 

VIC-2Q  Owners  Resource 

Computer  Enthusiasts 

(V.O.R.C.E.) 
Stu 

1740  Bodega  Ave. 
Petaluma,  CA  94952 
707,763-8552 


CANADA 

Barrie  User  Group 
Gail  Hook 
58  Steel  St. 
Barrie,  Ontario 
Canada  L4M  2E9 

Calgary  Commodore  User  Group 
John  Hazard 
37CastIeridgeDr.  N.E. 
Calgarv,  Alberta, 
Canada  T3J1P4 

Calgary  Commodore  Computer 

Club 
Radu  O  Ian  son 
47  Coach  wood  PI,  N.W. 
Calgary,  Alberta, 
Canada  T3I 11  El 

Commodore  Computer  Club 

Niels  Hansen  Trip 

RO.  Box  91164 

We  st  Vancou  ve  r,  B.C., 

Canada  V7V  3NG 

604/738-3311 

Commodore  64  User  Group 
Carol  Scheniman 
1322  Naples  St. 
Oshawa/  Whitby, 
Ontario,  Canada  L1K  1J6 

Nova  Scolia  Commodore 
Computer  User  Group 
John  Robinson 
66  Landraee  Cres. 
Dartmouth,  Nova  Scotia 
Canada  B2W2P9 
902'434-1524 


Samia  Commodore-64  User 
Group 

Susan  Timar 
1122  Wilson  Dr. 
Sarnia,  Ontario, 
Canada  N7S  3J6 
519.542-2534 

Toronto  PET  Users  Group 
1912A  Avenue  Rd.,  Suite  1 
Toronto,  Ontario, 
Canada  M5M  4A1 
416782-9252 

BBS  416  223-2625  (7:30  p.m. -9:00 
a.m.  Eastern  Time) 

Utilisateurs  De  Commodore 

(Commodore  User  Group) 
RO.  Box  685  STN.  H 
Montreal,  Quebec, 
Canada  H3G  2MG 

Vancouver  Commodore  User 

Group 
Chris  Brown 
Canada 
503'573-8489 


CONNECTICUT 

Commodore  Users 
Christopher  D.  Roberts 
RO.  Box  1 2 13 

Stratford,  Cr  06497 
203078-8258 

Computer  Users  Group 
Liz  Rafalowskv 
Halls  Hill  Rd. ' 
Colchester,  CT  06415 

203/537-2117 

New  London  Area  Commodore 

Users 
Robert  Kind 
PO.  Box  1608 
Groton,  CT  06340 
203/887-0238 

VIC  User  Group 

Carol  Do  vie 

1070  S.  Colony  Rd. 

Wallingford,  CT  06492 

203/269-7595 


ENGLAND 

PET  User  Group 
Barry  Miles 

Polytechnic  of  North  London- 
Hollo  wav  Rd. 
London,  England  N7  8DB 

FLORIDA 

Bits  and  Bytes  Computer  Club 
Frank  1 1.  Topping 
1859  Neptune  Dr. 
Englewood,  FL  33533 
813/474-6359 

Brandon  User  Group 
Paul  Daughertv 
108  Anglewood  Dr. 
Brandon,  FL 33511 
813'6H5-513H 

Centra]  Florida  Commodore  User 

Club 
Stephen  K.  McHanev 
RO.  Box  15949 
Orlando,  FL  32858 
305/298-4709 


Central  Florida  Commodore  User 
Group 

Earl  Preston 

6321  Ridgeberrv  Dr. 

Orlando,  FL  32811 

Commodore  Computer  Club 

Chuck  Fechko 

RO.  Box  21138 

St.  Petersburg,  FL  33742 

813/391-5219 

BBS  5-10  p.m.  7  days  a  week 

Commodore  Computer  Club 

David  Phillips 
PO.  Box  9726 

Jacksonville,  II  32208 
904764-5457 

Commodore  Users  Group  of 

Tallahassee 
Dave  Lang 
2501  DelxWCt. 
Tallahassee,  FL  32308 
904/893^749 

El  Shift  O ( VIC 2064 Commodore 

Users) 
Mike  Schnoke 
RO,  Box  548 
Cocoa,  FL  32922 

Gainesville  Commodore  User 

Group 
Louis  Wallace 
PO.  Box  14716 
Gainesville,  FL  32604 

Gulf  Coast  Computer  Club 

Jim  Johnson 

131  Fox  Run 

Port  Richev,  FL  33568 

813/863-7954 

Miami  64  User  Group 
Dr.  Evdie  Sloane 
RO.  Box  561689 
Miami,  FL  33256 

305/274-3501 

OTog  Users  Group  (or 

Commodore  64  VIC  20  Users 
Dax  Tacev 
321  Alma  St. 
Kissimmee,  FL  32741 

VIC/64  Heartland  User  Group 

Tom  Keotigh 

1220  Bartow  Rd.  #23 

Lakeland,  FL  33801 

813/666-2132 


GEORGIA 

CCS.  User  Groups 
Chuck  Morris 
RO.  Box  656 
Newman,  G A  30264 

Commodore  User  Group  of 
Augusta 

David  A.  Dumas 

1011  River  Ridge  Rd.  Apt.  14-A 

Augusta,  GA  30909 

40*738-7223 

Data  Swappers 
Bilk-  Peeples 
17731!  Alabama  Ave. 
Albany,  GA  31705 
912/43"!  -0031 

Liberty  Commodore  Users  Group 
Jeannette  Burger 
RO  Box  973 
Hinesville,  GA3I3I3 
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Middle  Georgia  Commodore  User 

Group 
Anthony  "Jim"  I  lornick 
510  Ft)  res  i  Lake  Drive 
Wamer  Robins,  G  A  31093 
9 12/922-7876 

VIC  Educators  User  Group 
Dr.  Al  Evans 

Cherokee  Countv  Schools 
110  Academy  St. 

Canton,  GA'3D1 14 

HAWAII 

20/64  Hawaii 

T.A,  Clav 

98-487  Koauka  Loon  Apt.  804 

Alea,  HI  96701 

20/64  Hawaii 
Wes  Goodpastor 
PO,  Box  966 
Kailua,  HI  96734 

Commodore  User  Group  of 

Honolulu 
Jay  Calvin 
1626  Wilder  #701 
I  lormluki,  HI  96822 
80S  444-9380 

IDAHO 

Commodore  User  Group 
Leroy  Jones 
548  E  Center 

Pocatelto,  ID832UI 
2(18 113-4294 

S.R.H.S.  Computer  Club 

Barney  Foster 

Salmon  River  High  School 

Riggins,  ID  83349 

ILLINOIS 

ASSMTED  User  Group 
Bienl  Anderson 
200  S.  Century 
Rantoul  IL  61866 
217JB934577 

Bloomington-Norma) 

Commodore  User  Group 
(BNCUG) 

Debra  A.  Landre 
PO.  Bos  1038 
Bloomington,  IL  61702 
309  434-1061 

Commodore  64  User  Group 

Gus  Pagnotta 

PCI  Box  572 

Glen  Klivn,  11,60137 

312/790-4320 

Fox  Valley  PET  User  Group 

Art  IX' knee f 

833  Willow 

Lake  in  the  Hills,  II.  MJ102 

312/655-7321 

PAI'UG  Peoria  Area  PET  Users' 

Group 
Max  rayfor 

81X1 SW  Jefferson  St. 
Peoria,  IL  61603 
309/673-6635 

PET  VIC  Club  (PVO 
Paul  Schmidt 
40  S.  Lincoln 
MundeJein,  IL6(X)6U 

312666-8685 


Regional  Association  of 

Programmers  (RAP  6420) 
Gene  A.  Mevers 
7358  W.  108th  PI, 
Worth,  IL  60482 
312/448-0485 

Southern  Illinois  Commodore 

User  Club 
I  Xivid  II.  Lawless 
1 707  E.  Main  St. 
Olney,  IL  62450 

The  Kankakee  Hackers 
Rich  Westerman 
RK#l,Box279 
St.  Anne,  IL 60964 

815/931-4407 

VIC-20  Commodorc-64  User 

Support  Group 
David  R.  Tarvin,  Sr. 
114  S.Clark  St. 
Pana,  IL  62557 
217  5624568 

Western  Illinois  PET  User  Group 

(WIPUG) 
Edward  I..  Mills 
Rt.  5  Box  75 
Quina;  11.62301 
217/656-3671 

INDIANA 

Commodore  Computer  Club 
John  Patrick 
38 14  Terra  Trace 
Evansville,  IN47711 
812/477-0739 

Commodore  Hardware  User 

Croup  (C*H*U*GJ 
Tim  Renshaw 
9651  E.  21st  St. 
Indianapolis,  IN  46229 
317(899-2003 

Commodore  User  Group/ 

The  National  Science  Clubs  of 
America-Commodore  Users 
Division 

Brian  Leplev 

7704  Taft  St. 

Merrillville.  IN  46410 

Louisville  Users  of  Commodore 
of  KY  (LUCKY) 

Melanie  A.  Roesser 
127  Locust  St. 
Jeffcrsonville,  IN  47130 

Manchester  User  Group  (MUG) 

Richard  M.  Bellows 

606  E,  Ninth  St. 

N.  Manchester,  IN  46962 

Northern  Indiana  Commodore 

Enthusiasts  (NICE) 
Eric  Bean 
927  S.  26th  St. 
South  Bend,  1N4M>15 
219/288-2101 

The  CBM  &4  Club 
Jim  Co  Iyer 
4755  Kinser  Pike 
Bloomington,  IN  47401 
812032-6645 

VIC  Indy  Club 
Fred  Imhausen 

PO.  Box  11543 
Indianapolis,  IN  46201 
317/357-6906 


Western  Indiana  Commodore 

Users  IVV.I.C.U.) 
Dennis  C.  Graham 
912  South  Brown  Ave. 
Terre  Haute,  IN  4780.3 
812/234-51  m 

IOWA 

Commodore  Computer  User 

Group  of  Iowa 
Curtis  L.Shiffer 
PO.  Box  3140 
Des  Moines,  IA  50316 
515/282-1388 

COUGAR  (COmmodore  Users 

Group  Ames  Region) 
Perrv  I  Ian  sen 
662  PammeJ  Ct 
Ames,  I A  50010 
513  296-2181 

Quad  City  Commodore  Computer 
Club 

JolmN   Yigas 
1721  Grant  St. 
Bettendorl,  1 A  52722 
319/355-2641 

Siouxland  Commodore  Club 
Garv  Johnson 
2700  Sheridan  St. 
Sioux  City,  I A  51103 
712'258-7903 

KANSAS 

Commodore  User  Group  of 
Wichita  Inc. 

Walter  Lounsberrv 
Rt.  1,  Box  115 
Viola,  KS  67149 
316/545-7460 

Strictly  VIC  Users  Group 
Lloyd  D,  Pitehford 

PO'  Box  66 

Sedgwick,  KS  67135 

KENTUCKY 

Bowling  Green  Commodore 

Users  Group 
Alex  Fit /pa  I  rick 
Rt.  11,  CreeksIdeApt.  #6 
Bowling  Green,  KY  42101 
502/781-9098 

The  Commodore  Connection 
Jim  Kemp 
1010  S.  Him 
Henderson,  KY  42420 

502/827-8153 

LOUISIANA 

Ark-La-Tex  Commodore  64  Club 
Pete  Whaiey 
198  India  Dr. 
Shreveport,  LA  71115 
318/797-9702 

C-64  Club  of  Baton  Rouge 

Tommv  Parsons 

5551  Corporate  Blvd.  Suite  3L 

Baton  Rouge,  LA  70808 

504/766-7408 

Commodore  PET  User  Group 
Wayne  Lowery 

616  N.  Niagara  Circle 
Gretna,  LA  70053 
504/821-8436 
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Commodore  User  Group  of  Ovachila 

Beckie  Walker 

PO.  Box  175 

Swartz,  LA  71281 

318343-8044 

Sixty  Four 'EM 

Dennis  DiJIenkoffer 

4559  Cerise 

New  Orleans,  LA  70127 

504/244-0237 

The  VIC/64  Connection 
Ronnie  Romero 
PO,  Box  1322 
Abbeville,  LA  70511 

318W8-0635 


MAINE 

So.  Me.-64 

Ed  Moore 
10  Walker  St. 
Portland,  ML 04102 

VIC  and  Commodore  Users  of 

Maine  IV.A.CU.M.) 
Pat  Young 
RFD  1,  Box  103 
Ellsworth,  ME  04605 

MARYLAND 

Capitol  Area  PET  Enthusiasts 

<VIC-20) 
William  Spillane 
PO.  Box  1602 
Rockville,  MD  20850 
301/340-7417 

Compucats'  Commodore 

Computer  Club 
Bettv  Schueler 
680  W,  Bel  Air  Ave, 
Aberdeen,  MD  21  (XII 
301/272-4195 
or  272-0472 

Hagerstown  User  Group 

(HUG  XX) 
Joseph  Rutkowski 
23  Coventry  Ln. 
Hagerstown,  MD  21740 
3017797-9728 

Long  Lines  Commodore  Club 

Tom  Davis 

323  N.  Charles  St,  Room  201 

Baltimore,  MD  21201 

301/547-2566 

Parklawn  VIC-20  C-64  User  Club 
Dr.  S.  R.  Joshi 
6001  Poindexter  Ln. 
Rockville,  MD  20852 
301/443-4300 

Rockville  VIC/64  Users  Group 
Thomas  I..  Pounds 
HO.  Box  8805 
Rockville,  MD  20856 
301 '231-7823 

VIC  and  64  User  Group 

Tom  Deriggi 

21000  aarfesburgRd, 

Bovds,  MD  20841 

301/428-3174 

Westinghouse  Friendship  Site 
Commodore  Users  Group 
Lee  Barron 
PQ  Box  1693 
Baltimore,  MD  21203 
301  765-7631 
(co  Westinghouse  Electric  Corp.) 


Wood  lawn  20/64  Computer  Club 
George  Towner 
1712  Aberdeen  Rd. 
Baltimore,  MD  21234 
301/608-7867 

MASSACHUSETTS 

Boston  Commodore  Users,  do 

The  Boston  Computer  Society 
Three  Center  Plaza 
Boston,  MA  02108 

617/367-8080 

Commodore  64  User  Group  of  the 

Berk  shires 
Ed  Rucinski 
184  Highland  Ave. 
PtttsfieW,  MA  01201 

Eastern  Mass  VIC-20  User  Group 

Frank  Ord  way 

SFIaggRd, 

Marlboro,  MA  01752 
617/485-4677 

MASSPET  Commodore  User 

Group 
David  Rogers 
P.O.  Box  307 

East  Taunton,  MA  02718 
617/823-1974 

Needham  Area  VIC-20  User 

Group  (VICHAM) 
llenel  loffman-Sholar 
366  Hunnewell  St. 
Needham,  MA  02194 

MEXICO 

SIGMA 

Orvananos  Enrique 

Holbein  No.  174-6  Col.  Napotes 

03710, 
Mexico,  D.E 
563-03-05 

MICHIGAN 

Commodore  Computer  Club 

John  R.  Waitev 
4106  Eastman"  Rd. 
Midland,  MI  48640 
517/835-5130 

Commodore  Computer  Club  of 

Toledo 
Gerald  W.  Carter 
734  Donna  Dr. 
Temperance,  Ml  48182 
313  847-0426 

DAB  Computer  Club 
Dennis  Burlingham 
PC).  Box  542 
Watervliet,  Ml  49098 
616/463-5457 

DUC-Durand  Users  Club 

(VCC-20/64) 
John  Davis 
6780  S.  Bvron  Road 
Durand,  Ml  48429 
517/288-4566 

Jackson  Commodore  Computer 

Club 
Alfred  J.  Bruey 
201  S.  Grimier!  St. 
Jackson,  Ml  49203 


South  Computer  Club 

Ronald  Ruppert 
South  Junior  High  School 
45201  Own 
Belleville,  Ml  48111 

Southeast  Michigan  PET  User 

Group  (SEMPUGr 
Norm  Eisenberg 
32800  VV.  12  Mile  Rd. 
Earmington  Hills,  MI  48018 

University  of  Michigan  VIC-20 
and  C-64  User  Group 

John  J.  Gannon 

School  of  Public  Heallh-Univ,  of 
Midi, 

Ann  Arbor,  Ml  48109 

VIC  20  Mail  Club 
David  Koski 
51074  Mott  #11 
Canton,  Mi  48188 

VIC  for  Business 
Mike  Marotta 
6027  Orchard  Cl. 
Lansing,  MI  48910 
517/394-2345 

MINNESOTA 

Minnesota  Users  of  PET 

(MUPET) 
Ion  T.  Minerich 
PO.  Box  179 
Annandale,  MN  55302 
612/963-5056 

MISSOURI 

Association  of  Commodore  User 

Groups  (ACUG) 
TcmyOtt 

10378  Coburg  Lands 
St.  Louis,  MO  63137 
314/867-0016 
BBS  867-6950 

joplin  Commodore  Computer 

User  Group 
R,  D.  Connelv 
422  S.  Florida  Ave, 
Joplin,  MO  64801 

Kansas  City  PET  User  Group 

(KCPUG) 
Rick  West 
I'Q.  Box  36492 
Kansas  Citv,  MO  641 11 
816'252-7628 
BBS  257-2502 

Mid-Missouri  Commodore  User 
Club 

1804  Vandiver  Dr. 
Columbia,  MO  65202 
314/474-4511 

Northland  Amateur  Radio 

Association 
Alan  Buyer 
528SkvIineDr. 
Liberty,  MO  64068 
Kl  fi78"1-6987 

The  Commodore  User  Group  of 
St.  Louis,  Inc. 

Dan  Weidman 
PO.  Box  6653 
St.  Louis,  MO  63125 
314,u6K-44«9 
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NEWSSc 
PRODUCTS 


New  Printer  From 
Commodore 


Commodore  has  released  a  new 
printer,  the  MPS-801,  which  will 
replace  the  1525.  According  to  a 
source  at  Commodore,  the  MP5- 
801  is  slightly  faster  than  the 
1525,  features  a  cartridge  ribbon, 
paper  advance  knob  and  button, 
and  supports  full-size  paper. 
The  printer  also  includes  two 
serial  ports  to  enable  daisy  chain- 
ing, and  the  printing  mechanism 
has  been  relocated  for  a  quieter 
sound.  Price  was  riot  set  at  press 
time. 

Quick  Reference 
Guides  For 
VIC  And  64 

John  Wiley  &  Sons  has  published 
Quick  Reference  Guides  for  the 
VIC,  64,  and  Timex  1000  com- 
puters, similar  to  the  guides  the 
company  previously  published 
for  the  IBM  PC,  Apple  II,  and 
Atari  800. 

The  6  x  12-inch  four-panel 
guides  list  and  define  such  items 
as  BASIC  statements,  system 
controls,  memory  statements, 
video  and  graphic  controls,  and 
other  topics. 

The  guides  are  available  for 
$2.95  each. 

John  Wile}/  &  Sons,  Inc. 
605  Third  Avenue 
NcicYork,  NY  10158 
(212)  850-6000 
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VIC-20  Typing 
Tutorial 


Mastertype,  a  typing  tutorial  from 
Broderbund,  is  now  available  for 
the  VIC-20  in  a  cartridge  format. 

The  tutorial  consists  of  18 
progressive  lessons  set  within  a 
game  format.  You  defend  a 
spaceship  from  a  barrage  of  let- 
ters or  words  by  correctly  typing 
them  as  rapidly  as  possible. 

Lessons  may  be  saved  on 
either  disk  or  cartridge  for  future 
use.  Included  are  an  illustrated 
instruction  manual,  hints  for 
winning  the  game,  and  direc- 
tions for  creating  your  own  cus- 
tomized lessons  to  improve 
typing  and  spelling. 

The  VIC-20  cartridge  version 
of  Maslerh/pe  sells  for  $39.95. 

BrSderbund  Software,  Inc. 

17  Paid  Drive 

San  Rafael,  CA  94903 

(415)479-U70 

Twin-Disk 
Adventure 
Game  For  64 


Cybervoorld,  a  two-disk,  interac- 
tive keyboard/joystick  adventure 
game  for  the  Commodore  64, 
has  been  produced  by  Progres- 
sive Peripherals  &  Software. 

The  player's  mission  is  multi- 
layered,  set  on  the  planet  Cyber, 
and  includes  full  use  of  the  64' s 
sprite  capabilities.  There  are 


three  subadventures,  which 
begin  with  the  hijacking  of  a 
Drokon  warship  and  advance  to 
a  defense  of  the  planet.  The  final 
mission  is  a  hunt-and-t racking 
game. 

Available  only  on  diskettes, 
the  program  is  available  for 
$39.95. 

Progressive  Peripherals  &  Software 
2186  South  Holly,  Suite  2 
Denver,  CO  80222 
(303)  759-5713 

Music,  Business, 
Personal 
Programs  For  64 


M'Soft  has  developed  several 
new  programs  for  the  Commo- 
dore 64  on  disk. 

Smart  ($79.95)  features  five 
different  programs,  all  of  which 
load  from  one  main  menu:  word 
processing,  money  manage- 
ment, amortization,  record  keep- 
ing, and  time  management. 

Wallstreet  Microscope  ($99.95) 
nit  its  price  and  financial  analysis 
of  common  stocks,  with  each 
stock  rated  against  ten  criteria.  It 
is  available  with  a  ten-year  his- 
tory of  Fortune  500  companies. 

Mnsicwriter-64  ($69.95)  is  a 
music-composing,  editing,  and 
playing  program  that  also  prints 
sheet  music  for  compositions 
created  using  the  system. 

Double  E  Electronics 
12027  Pacific  Street 
Omaha,  NE  68154 
(402)  334-7870 


n 


a 


Computa-Law 

Legal  Agreements* 

For  Your 

COMMODORE  64 
VIC20(16K) 

IBM-PC&(Jr} 

Just  answer  the  questions  &  your 

computer  &  printer  does  the  rest! 

Simple  Will 

Agreamsnt  of  Sale  ■  Real  Estate 

Agreement  oi  Sale  ■  Goods 

L«ah  ■  Reiidentia! 

Leas*  -  Commercial 

Power  of  Attorney 

employment  Contract 

Promisiorv  Note 

Partnership  Agreement 

Computer  Software  Contract 

Computer  Hardware  Contract 

Pre-Nuptial  Agreement 

Separation  Agreement 

Construction  Contract 

General  Release 
For  informational  purposes  only 
not  intended  ei  a  substitute  for  legal  advise. 

Guaranteed  to  work  on  your  printer. 

S19,95  Each  Program  (Cassette) 
524,95  Each  Program  (Disk) 
Add  $1.50  postege  B,  handing. 
65  Other  Business  Si  Home  Programs 
also  aveilabln 

FREE  CATALOG 
LEGAL  BYTE  SOFTWARE 

Box  579,  Gwynedd  Volley,  PA  19437 
{215)643-7666  (609)424-5485    j 


The  Banner  Machine 

For  me  Commodore  64  (3  e*tra  fonts  available}. 
For  the  VIO-20  with  24K  memory  (2  extra  fonts 
avairable)  ■  Use  on  any  Gemini  or  Epson  MX  with 
Graft  rax  or  the  FX  end  fix  pnnters.  Also  Commo- 
dore tSBSE  ana  Banana  with  the  C*64.  ■  Menu- 
driven  program  operates  like  a  word  processor  - 
Makes  signs  up  to  1 3'  (all  by  any  length  •  Makes 
borders  of  widths  up  to  v.-  •  s  sizes  of  letters 
from  U*  to  8"  high  *  Proportion  il  spacing.  Auto- 
matic  Centering, -.Right  and  lert  justifying  *  549.9$ 
Tape  or  Disk  (Specify  computer  equipment 

For  the  Commodore  64: 

Home  Finance  Manager    keep  detailed  records  of 
ten  deductions,  bank  payments,  monthly  charges, 
individual  Hem  expenses,  and  checks.  Store  more 
than  200  transactions  per  month.  $39.95 
CTRL-M    Permits  listing  of  C-64  programs  on  non- 
Commodore    printers.    Lists    control    symbols    in 
readable  form    Tape  or  d4$k  154.95 
Mlcrobroker    Exciting,   realistic  and  educational 
stock  market  simulation   534  95  Tape  or  Disk 
Preschool  Educational  Programs  ABC  Fun-  153  Fun, 
and  Ginger  the  Cat  with.  Add-on  and  Subtraction, 
Number  Hunt,  and  Letter  Hunt    AU  5  programs 
ftavt  bright  color,  music,  and  action.  Each  Si  4.95 
Formulator    A  scientific  calculator  for  tasks  which 
require  repetitive  arithmetic  computations,  Save 
formulas  and  numeric  expressions.  539.95 
Grade    Organixer     Teachers -store    grades   for   6 
classes,  up  to  40  students  each,  680  grades  per 
student     Print    interim    and    final    reports     class 
rosters,  and  more1  Disk  539,95, 

»    Cardinal  Software 

Virginia  Micro  Systems,  136^5  Jeff 
Davis  Hwy  ,  waodbricfge,  VA  KT9J 
PhsHf  (701)  4f1*SM 
Ask  for  our  free  catalog 


=* 


For  VIC  •  «0  /  COW  -  ft* 


MICRODIGrTAL 

ARCADE  GAMES  VIC  64 

Skramble  (T)  [eraeng)  10  75  12,75 

GiWder  (T)  (grid  chase)  10.75  12.75 

Snattroan  IT)  [pac  man)  10  75  12,75 

PlnbaD  Wtard  (T)  10  75  12.75 

PRACTICALC  PLUS  (16KHT)  43.9S  43  M 

T«mpteorAp)hii(16K)(Tl  27.50  27  50 

Sword  of  Fargoal  (16K)  (T)  21 .80  N  ,'i 

(CALL  FOR  DISK  PRICING) 


1|%  t£         MEMORY 
DlV         EXPANSION 

ONLY   $4Q95 

+  14  Day  Money  Back  Guarantee 

*  Boosts  VIC  to  21K  RAM 

*  Top  Quality,  Fully  Tested 

*  90  Day  Warranty 

for  IMMEDIATE  SHIPMENT 
on  Credit  Card  Orders 

Call:  (303)245-9012 

10  AM  -  9  PM  MST  Every  Day 

ASSEMBLY  TECHNOLOGY 

2692  Hwy  50  Suite  210 
Grand  Junction,  CO  81503 

Personal  ch«l«  allow  3  kvetkl 
Shipping  Si  haridtifiQ  12  50 
^^^^i    Colorado  Residents  add  Sales  Tax 
CS  COD  add  %2  00 


COMPUTER  DISCOUNT 

TOLL  FREE  1-800-621-6131  FOR  ORDERS 

4251  W.  Sahara  Ave.,  Suite  E  Las  Vegas,  Nevada  891  26 
MONDAY  THROUGH  SATURDAY  •  9  AM  TO  6  PM 


Comm64 ..$229 

1541  Disk  Drive ...249 

1525  Printer 229 

1702  Color  Mont 259 

Hes  Mon 29 

Paper  Clip  w/p 115 

Calc  Result ...  140 

Sysres-Utitity 90 

Renaissance 30 

Vic-20 ....  90 

Datasette 64 

1600  Modem 85 

Word  Processor 95 

131 1  Joystick ,8 

1312  Paddles 16 

1210  3k  Expander 34 


SPECIAL 

Comm  64 

1541  Disk  Drive 
152EE  Printer 
1600  Phone  Modem 


S785 


A 

AIAR1 


HARDWARE 

C,  Itoh  Prowriter $379 

Nee.  8023A 429 

Banana  Printer 209 

Hayes  1  200  Modem 489 

COMM.  64  DISK 

Temple  Of  Apshai $33 

Upper  Reaches  Apshai .18 

Jump  Man 33 

Zorkl 33 

Zorkll 33 

Zork  III 33 

Frogger 30 

Jawbreaker 24 

Ft.  Apocalyse ..30 

Pharoh's  Curse 30 

Starter  Pack  D/C $22 

Word  Machine 17 

Pet  Emulator .AJ 

Gen  Ledger gg 

Mail  List  Mgr, 43 

Hes  6502 .,2Z 


New  Educational  Programs 

Purchases  can  be  made  by  check,  money  order,  C.O.D. 

Carte  Blanche  and  Diners  Club.  1-702-367-2215 


:'*5"-1. 


voRKicr 

CASSETTES 


BLANK  CASSETTES 

C-05,  C-06,  C-10,  C-12,  C-20,  C-24,  C-32 

From  Bit  leadm  j  tupplltr  of  Compulir  Cmatln, 
new,  Icnpir  lengtti  C-IZ'i  (6  minulit  pic  tidi|  provide 
liij  si  Ira  lew  latl  n redid  lor  tomi  16K  prpgiimi. 

.  r„    BASF- LH  D  |  DPS)  world  atandtrd  Up*. 
^   J^T    Premium  5  ecr*w  ahall  with  tatdar. 

#*ffl  "]y  Er~ror  Frw  *  Ma  nay  back  ouarantaa.   .ffljfe. 

Can :  2 13/700- 0330  ,„  « «i; un  v.i.  r  :.:„:,-,:.,,., 
ORDER  MOW.,. UAH |f  1A--  9525  Vaiur  Ave.  «G 
...MIL  TO...     TWIin  IU    Cr.allwunri.CA  91311 


*■ 

I 

niM 

•MM. 

1  DOT. 

TOT4U 

FREE  1  STORAGE 
CAODY  «■*  ir.i"r  4  Am 

1 

c« 

:    res 

"   *]« 

do 

•fn 

„■  iiffi) 

;mi'r.  purEjniiH 

tm 

;  s  7% 

:  «>'  '7;- 

Eich  u^«ne  include 

cu 

.:   i» 

'    1  T  00 

cSj 

-ni  M 

li  00 

scud  sep*r*i*<y  in  Cent 

fWl  »fil 

□   ?» 

D    *» 

U  S  shipmefiTbyUPS 

Stji-js  lii-.   -;r--;   ",  ,       

II  Parcel  PoV  ct'r  ■« 
cntctneft   □ 

500  MZ'iOQrf 

%um  TQTU. 

CtVX    rtHmi  too  SkfFH  -JJ 

S»"-Wi*-g  IbtJUttj  it**!  >-*--. 

350 

*/i«3b*'s  ado  *t  ea 
/^hipcMng     J17 

TOT  JUL 

Cf*Ci  or  M  □   BfiOoud  ~          5 

£>«rt»ie  crtj»[  c*yfl  VISA  u  M, 

^STERCARDC 

Ma  Tie 

Phontp 

makij  & 
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Software  Discounters 


America 


S.D.  of  A. 


1-800-225-SOFT 

P.O.  Box  278-Wildwood,  PA  15091 
In  PA  (412)  361-5291 


Commodore  64  Software 

Atlworx 

Strip  Poker  (0) $24 

Gwendolyn  (D) J1S 

Broderbund 

BankStWnler(D) S43 

Chopli(teMCT) ., J24 

Loderunner  (D) S21 

Cardco 

ei?B  Printer  tnt J33 

Ck/1  Keypad  S26 

Datasoft 

O'Riley'sMmo(D)   S18 

PooyanCPD) J18 

Epyx 

Jumpman(D) $24 

Pitslop(CT) $24 

Temple  ol  Apshai  (T  or  D) ,  ,  .  .  $24 

MES 

OmnicalC  (D) S30 

Multiplan(D) ,,,  , , $65 

Modam $49 

Inlocom 

Enchanter  (D) $33 

Infidel  (D)  $33 

Planetfall(D) $33 

Koala 

Tou  en  Tap  lei  wf  Koala  Painter  $65 

Muse 

Castle Wolfenslein(D)   $18 

Super  Text  Professional  (D) $59 

Sierra  On  Line 

Frogger  (T  or  0) $21 

Hornnword  (D)    $39 

Quest  For  Tires  (D) . , $21 

Spinnaker 

Alphabet  Zoo  (CT) , $21 

Kids  on  Keys  (CT) $21 

Kindercomp(CT) $18 

Trains  (D)    $25 

Synapse 

Blue  Max  IT  of  D) $21 

Morflol  (T  or  D> $21 

Pharoan's  Curse  (T  or  D) $21 

Shamus  Case  II  (T  or  D) $21 

TImeworks 

Data  Manager  (T  or  0) $17 

Money  Manager  (Tor  D)  $17 

Programming  Kit  (1,2.or3| $17 

Accessories 

Alien  Group  Voice  Box $75 

BASF  SS.DD  (Box  Ol  10)   $17 

Disk  Drive  Cleaning  KI1 $9 

Dust  Cover64  or  1541   $8 

Gusdorl  Compu  ler  Table . .  -  $49 

Monitor  Cable    $6 

Multiple  Outlet  Strip $19 

Sakata  13"  Composile  Color S245 

Wico-Boss   $13 

Wico-RedBail .$19 

Wlco-3way $21 

'This  Is  Just  a  small  selection  ol  what  wa 
stock.  Call  for  our  tree  catalog! 
Ordering  &  Tarma:  Orders  with  cashier  chech  or 
money  order  shipped  immediately.  Personal'Co 
checks.allow  3  weeks  clearance.  VISA/MASTERCARD 
accepted  with  no  additional  charge.  Shipping:  Orders 
under  $100  add  $3;  free  shipping  on  orders  over  1100 
PA.  residents  add  6%  sales  lax,  Relurns:  Doloetive 
merchandise  will  bo  raptacad  wltfi  same  merchan. 
disc  —  no  credits!  Returns  must  have  authorization 
ndmbor  (412-621-153?).  Prices  subject  to  change 
wlthoul  notice. 


NEWS  BYPRODUCTS 


VIC  And  64 
Spreadsheet 


BEC,  a  spreadsheet  analysis  pro- 
gram tor  the  entrepreneur,  has 
been  developed  bv  Lawco,  Ltd., 
for  the  VIC  and  64. 

The  program  computes  the 
break-even  point  tor  new  prod- 
ucts by  using  the  product's 
expense  data.  It  also  uses  the 
product's  sales  price  to  compute 
a  break-even  sales  quantity  or 
the  quantity  produced  to  figure 
a  break-even  sales  price. 

Total  fixed  costs,  total  vari- 
able costs,  and  sales  revenue  at 
the  break-even  point  are  also 
computed.  Multiple  break-even 
points  can  be  produced  by  vary- 
ing the  sales  price,  the  produc- 
tion quantity,  and/or  the  cost 
figures. 

SEC  is  available  at  S79.95  on 
tape  and  $89.95  on  disk. 

Lawco,  Ltd, 
P.O.  Box  1337 
Cupertino,  CA  95015 
(408)  733-0739 

Action  Game 
For  64  With 
Disk  Drive 


Crazy  Conveyors,  produced  by 
Bvtes  and  Bits,  is  a  machine 
language  action  game  for  the 
Commodore  64  with  disk  drive. 

The  game  uses  multicolor 
sprites,  custom  characters  in  11 
different  colors  for  building 
blocks,  ladders,  fire  poles,  ro- 
tating pulleys,  moving  con- 
veyors, and  bonus  boxes.  Crazy 
Conveyors  also  uses  three-part 


harmony  and  is  playable  with 
joystick  or  keyboard. 

The  game  contains  the 
Screen  Creator  which  expands 
the  game  disk  and  other  disks 
for  additional  screens. 

The  price  for  the  game  is 
S29.95. 

Bytes  ami  Bits 

524  East  Canterbury  Lane 

Phoenix,  AZ  85022 
(602)  942-1475 


Cassette  Copier 
For  VIC  And  64 


T  &  M  Products  has  produced  a 
Data  Cassette  Copier,  which 
allows  all  cassettes  to  be  dupli- 
cated by  interfacing  two  Datas- 
sette  recorders  with  a  Commo- 
dore 64  or  a  V1C-20  computer. 

The  Data  Copier  will  dupli- 
cate all  programs  and  load 
machine  language  programs 
without  using  VICMON.  A 
Micru-speaker  plus  LED  allows 
you  to  monitor  the  data  by  sight 
and  sound. 

The  Data  Copier  is  available 
for  S24.95  plus  52  shipping  and 
handling.  Power  is  supplied  bv 
the  computer  at  the  cassette  port, 
so  no  batteries  are  required. 

T  &  M  Product* 
P.O.  Box  1172 
De  Soto,  TX  75115 


Math  Drill 
Program 


Let's  Lear?}  Math,  a  menu -driven 
addition  and  subtraction  drill 
program  for  the  Commodore  64, 
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has  been  released  by  Micro- 
Systems  Software. 

The  program  has  four  levels 
of  difficulty  and  is  designed  for 
youngsters  age  6  to  12.  All  prob- 
lems are  solved  column  by  col- 
umn. The  need  for  pencil  and 
paper  is  eliminated.  Right  and 
wrong  answers  are  flagged,  and 
the  correct  answer  is  displayed  if 
the  entry  was  wrong.  At  the  end 
of  each  session,  a  report  of  the 
number  of  correct  and  incorrect 
entries  is  displayed. 

Let's  Learn  Math  is  available 
on  tape  for  $12.95. 

M  icro-Systems  Software 
4027  Mams  #263 

Indianapolis,  IN  46205 


COMPUTE!'*  GAZETTE  welcomes 
announcements  of  new  products  for 
V1C-20  and  Commodore  64  cow/niters, 
especially  products  aimed  at  beginning 
to  intermediate  users.  Please  send  press 
releases  and  photos  well  in  advance  to: 
Tony  Roberts,  Assistant  Managing 
Editor,  COMPUTE  I 's  GAZETTE, 
P.O.  Box  5406,  Greensboro,  NC  2740.1. 

New  product  releases  are  selected  from 
submissions  for  reasons  of  timeliness, 
available  space,  and  general  interest  to 
our  trailers.  We  regret  thai  weareunabk 
to  select  all  new  product  submissions  tor 
publication.  Readers  should  be  aware 
timl  we  present  here  some  edited  version 
of  material  submittal  by  vendors  and  are 
u  liable  to  vouch  for  its  accuracy  at  time  of 
publication,  (flj 


VIC  20™/ COMMODORE  64™ 


CRA2T  CONVEYORS*  com&rvw  the  pOfteUul  ufMfeiiln 
Commodore  W  w»ih  oijk  onve  in  &t\  eiciTir>tj  jchort  packed  game 
■villi  murii-cfuor  sp^ei,  ciiilom  tfurjOers  m  n  different  ctfws  Iw 
iiuiidniq  blocks  ttfdws  fire  Mies,  totaling  pulttys  moving 
cunvevors  d(W  thMins  Minus  Ihrce  pari  Fur  many  music;  higti  sewfl 
history  with  Full  names  oi  to  criampicfis:  acIio/i  pause,  scan  ps-av  at 
scfe-en  oi  youi  ctHjico  loysbck  q?  keybewn.  machine  language  Also 
Screen  DtilM™  ic  expand  game  flisfc  and  flxlu  mski  to  vtftuatfy 
unlimited  screens  inti  CRAzr  CONVEYOR  aciiDA  to  Htieri#n  ann 
tftaHeflQe  the  most  WtiWul  game  player  P"Ce  S?9  9ia 
RIDGE  RUNNER  for  iMie»wiK!M  VlC  ?0  on  tape  or  ths*  100% 
macnine  language  inc'uoei  nnjiii<o*fif  u  K  0  Dlmhingi  nines 
Spuming  .     '  .  .      1  el  'He    flCfifOntJl  , 

iLiyin'in    '  ■  i\',\i\t-c.    tfxcatlenl  sound    high 

score  pausi  butlffi  twos  snips  and  ewei  increasing  levels  of 
dittrojily  Joyslitk  ret|u«ett  Price.  Si<i  4) 
dungeons  lor  vie  ?o  rtitn  tSK  expansion  and  tape  or  disk.  Explore 
h  1?  level  OunQftdn  with  1900  roams  Purchase  weapon  and  drnei 
Imd  Ifeaares  battfa  over  Mty  types  01  rjionarars,  tasr  speUs  and 
save  game  to  tape  oa  dish  Exce&iti  sound  and  trnte  tiimensionai 
qs-apincs  Pnct  Su  9i 

PAK  ALIEN  for  unet|Mrtrjed  VlC  ?0  with  tjyp  o«  dfS*  1Dif%  imdiiw 
tanguaqe  includes  s«venevn  aliens,  bonus  rimer  pau$e  feaiu'e  a^c 
100  levels  ot  mctasmp  {i.iiu-j.:*    toyjhed  em  keyboard    Pun 

INVESTMENT  PORTFOLIO  MANAGER  llli  C 0OM  i>-1  with  OiSh 

dnvt!  cm  taps  11 ii-r  Dpiioojii   is  menu  gttviMH  and  provides  one 

summary  paqe  and  nine  detail  nayes  t.n  h  parje  can  accepl e 

enine*  of  up  (0  S£9  999  each  The  pioqr.vm  can  handle  rjver  S3 
motion  The  iPM  is  rjuck  ami  makes,  tf  easy  10  uacJ  ••-■'■'  -  — i 
such  as  itrx-s  and  siocv  noiKjre  Tne  summary  oaqe  msptarys  the 
aranrj  lout  «wo  ifte  wieeru  •  I  ar.in-a  loial  tor  each  01  nme  mvestmeni 
cateqo'ies   Price  $M  % 

DISK  DIRECTORY  MANAGER  lot  ComniorJo'C  11J  nr  VIC  M  1 IBK  t*n 
exp  >  wii'i  tM0/4t  di',>.  drive  and  ijtfb  pnrrttf  'UU%  maenme 
lanfluafle  tins  ri.iiniy  uiihiy  reads  directorial  ui  liishetias  and  swts 
up  10  1556  recoidton  !hp  Commodore  £4  In  mosi  cases  ifwswi  is 
coinpieied  in  uniy  .1  law  second  .  Each  lecorfl  contanit  Uit  mmr  life 
sye  Ws  hjtw  and  ftsh  to  rtK  scried  mailat  dwreciorv  is  serm  io  ifie 

jjnn'pi     Pi  1  t>    j  ■  '   '■ 
SEND  FOR  FREE  CATALOG1 


BYTES  and  BITS 

524  E.  Cantetbury  Ln. 

Phoenix.  AZ  85022 


(602)  942-1475 

Please  sptcily  u  js  g<  disk 

Chech    money  Oftjer  or  C.O.D. 

Add  S?  01]  for  pDstjge  A  handling 

Aildiioiji  s.i  00  car  C.O.D. 


VIC  ?0  A  Commodwt  M  *e  tsdemarks  ol  Cdrnmockirf  Etettiomis  Lid 
CRAZY  C0NVEY0A5  sod  SeiRn  CltJIO  n  lnttmaikl  ol  Bf  1ES  »nd  BITS 


SmartVoice 


TM 


A  breakthrough  in  voice  technology  for  the 
Vic  30  and  Commodore  64  computers  This 
unit  is  not  just  another  voice  synthesizer 
The  quality  is  lantastic  and  it  requires  no 
peeks,  no  pokes,  no  phonemes,  no  interlace 
cables,  no  power  cords,  no  text  editors  or 
programs  ol  any  kind,  and  installs  in  just  ? 
seconds.  Say  anything  you  like  wilh  simple 
prim  statements  such  as: 
PHINT  *2.  "MY  NAME  IS  SMARTVOICE" 
That  is  all  there  is  lo  il  You  can  talk  fast  or 
slow,  use  63  pitch  levels,  create  sound 
effects,  sing  songs,  useautomatic  inflection 
and  monotone  modes,  control  volume  by 
program  of  external  knob,  and  morn  A 
detailed  user  manual  with  demonstration 
programs  included.  Models  for  other 
computers  also  available 
COST  ST  99  Add  4«i  S&H  on  MC  or  VISA  orders 
Ohio  residents  add  5^&  Sales  Tax 

USER  FRIENDLY  SYSTEMS  INC. 

6135  Ross  Road  Fairfield,  Ohio  45014 

(513)  874-4550 

Vit.   ?0  IH  HP  Orf'*!tf.jiJ;  ;-'■'« ■   un'k  ...I  I    ■.<  il:,  .l.'.if  f  hi  li.ri ...      t  |,i 


NEW! 

Universal  Input/Output 

Board  For  VIC-20/64 


^ttO©^ 


-  16  channel  B-bil  AD  converter  with  100 

microsecond  sampling  time. 
-IDA  output. 

•  16  high  voltage  high  current  discrete  out- 
puts. 

■  1  EROM  socket. 

•  Use  multiple  boards  for  additional  channels 
up  to  6  boards 

V1C-20  oici  MW-311V S2OS.00 

CBM-64  «*ei  MW-3HC 5225,00 


5 


c 


MW-302:  VIC-20/64 
Parallel  Printer  Interface. 


Works  with  all  Centronics  type  parallel 
matrix  &  letter  printers  and  plotters- 
Epson,  C.lloh,  OkirJata,  Nee.  Gemini 
10,  TP-I  Smith  Corona,  and  most 
others.  Hardware  driven;  works  off  the 
serial  port.  Quality  construction:  Steel 
DIN  connectors  &  shielded  cables.  Has 
these  switch  selectable  options:  Device 
4.  5.  6  or  7.  ASCII  or  PET  ASCII;  7-bit 
or  8-bit  output;  upper  &  lower  case  or 
upper  only.  Recommended  by  PRO- 
FESSIONAL SOFTWARE  (or  WordPro 
3  Plus  (or  the  64.  and  by  City  Software 
for  PaperClip. 


MW-302 


S  119.95 


D 


Micro  World  Electronic,  Inc. 
3333  S.  Wadsworth  Blvd.  #C105, 
Lakewood,  CO  80227 
(303)  987-9532  or  987-2671 
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A  Beginner's  Guide 
To  Typing  In  Programs 


What  Is  A  Program? 

A  computer  cannot  perform  any  task  by  itself. 
Like  a  car  without  gas,  a  computer  has  potential, 
but  without  a  program,  it  isn't  going  anywhere. 
Most  of  the  programs  published  in  COMPUTEI's 
Gazette  for  Commodore  are  written  in  a  computer 
language  called  BASIC.  BASIC  is  easy  to  learn 
and  is  built  into  all  VIC-20s  and  Commodore  64s. 

BASIC  Programs 

Each  month,  COMPUTEI's  Gazette  for  Commodore 
publishes  programs  for  both  the  VIC  and  64.  To 
start  out,  type  in  only  programs  written  for  your 
machine,  e.g.,  "VIC  Version"  if  you  have  a  VIC-20. 
Later,  when  you  gain  experience  with  vour  com- 
puter's BASIC,  you  can  try  typing  in  and  converting 
certain  programs  from  another  computer  to  yours. 

Computers  can  be  picky.  Unlike  the  English 
language,  which  is  full  of  ambiguities,  BASIC  usu- 
ally has  only  one  "right  way"  of  staring  something. 
Every  letter,  character,  or  number  is  significant.  A 
common  mistake  is  substituting  a  letter  such  as 
"O"  for  the  numeral  "{)",  .1  lowercase  "I"  for  the 
numeral  "I",  or  an  uppercase  "B"  for  the  numeral 
"8".  Also,  you  must  enter  all  punctuation  such  as 
colons  and  commas  just  as  they  appear  in  the 
magazine.  Spacing  can  be  important.  To  be  safe, 
type  in  the  listings  exactly  as  they  appear. 

Brackets  And  Special  Characters 

The  exception  to  this  typing  rule  is  when  you  see 
the  curved  bracket,  such  as  "{DOWN}".  Any* 
thing  within  a  set  of  brackets  is  a  special  character 
or  characters  that  cannot  easily  be  listed  on  a  print- 
er. When  you  come  across  such  a  special  state- 
ment, refer  to  "How  To  Type  In  COMPUTE! 's     , 
Gazette  Programs." 

About  DATA  Statements 

Some  programs  contain  a  section  or  sections  of 
DATA  statements.  These  lines  provide  information 
needed  by  the  program.  Some  DATA  statements 
contain  actual  programs  (called  machine  language); 
others  contain  graphics  codes.  These  lines  are  espe- 
cially sensitive  to  errors. 

If  a  single  number  in  any  one  DATA  statement 
is  mistyped,  your  machine  could  "lock  up,"  or 
"crash."  The  keyboard  and  STOP  key  may  seem 
"dead,"  and  the  screen  may  go  blank.  Don't  panic 
-  no  damage  is  done.  To  regain  control,  you  have 


to  turn  off  your  computer,  then  turn  it  back  on. 
This  will  erase  whatever  program  was  in  memory, 
so  always  SAVE  a  copy  of  your  program  before  yon  RUN 
it.  If  your  computer  crashes,  you  cafi  LOAD  the 
program  and  look  for  your  mistake. 

Sometimes  a  mistyped  DATA  statement  will 
cause  an  error  message  when  the  program  is  RUN. 
The  error  message  may  refer  to  the  program  line 
that  READs  the  data,  lite  error  is  still  in  the  DATA 
statements,  though. 

Get  To  Know  Your  Machine 

You  should  familiarize  yourself  with  your  com- 
puter before  attempting  to  type  in  a  program. 
Learn  the  statements  you  use  to  store  and  retrieve 
programs  from  tape  or  disk.  You'll  want  to  save  a 
copy  of  your  program,  so  that  you  won't  have  to 
type  it  in  every  time  you  want  to  use  it.  Learn  to 
use  your  machine's  editing  functions.  How  do 
you  change  a  line  if  you  made  a  mistake?  You  can 
always  retype  the  line,  but  you  at  least  need  to 
know  how  to  backspace.  Do  you  know  how  to 
enter  inverse  video,  lowercase,  and  control  char- 
acters? It's  all  explained  in  your  computer's 
manuals. 

A  Quick  Review 

1)  Type  in  the  program  a  line  at  a  time,  in  order, 
Press  RETURN  at  the  end  of  each  line.  Use  back- 
space or  the  back  arrow  to  correct  mistakes. 

2)  Check  the  line  you've  typed  against  the  line  in 
the  magazine.  You  can  check  the  entire  program 
again  if  you  get  an  error  when  you  RUN  the 
program. 

3)  Make  sure  you've  entered  statements  in  brack- 
ets as  the  appropriate  control  key  (see  "How  To 
Type  COMPUTEI's  Gazette  Programs"  elsewhere 
in  the  magazine.) 


We  regret  thai  toe  are  not  able  to  respond  to  individual 
inquiries  about  programs,  products,  or  services  ap- 
pearing in  COMPUTEI's  Gazette  for  Commodore 
due  to  increasing  publication  activity.  On  those  in- 
frequent occasions  when  a  published  program  contains 
a  typo,  the  correction  will  appear  in  the  magazine, 
usually  within  eight  iveeks.  If  you  have  specific 
questions  about  items  or  programs  which  you've  seen 
in  COMPUTEI's  Gazette  for  Commodore,  please 
send  them  to  Gazette  Feedback,  P.O.  Box  5406, 
Greensboro,  NC  27403. 
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How  To  Type  In 
COMPUTE'S  Gazette  Programs 


Many  of  the  programs  which  are  listed  in  COM- 
PUTE!'s  Gazette  contain  special  control  characters 
(cursor  control,  color  keys,  inverse  video,  etc.). 
To  make  it  easy  to  know  exactly  what  to  type  when 
entering  one  of  these  programs  into  vour  com- 
puter, we  have  established  the  following  listing 
conventions. 

Generally,  any  VIC-20  or  Commodore  64 
program  listings  will  contain  bracketed  words 
which  spell  out  any  special  characters:  {DOWN) 
would  mean  to  press  the  cursor  down  key.  {5 
SPACES}  would  mean  to  press  the  space  bar  five 
times. 

To  indicate  that  a  key  should  be  shifted  (hold 
down  the  SHIFT  key  while  pressing  the  other 
key),  the  key  would  be  underlined  in  our  listings. 
For  example,  S  would  mean  to  type  the  S  key 
while  holding  the  shift  key.  This  would  appear 
on  vour  screen  as  a  "heart"  symbol.  If  you  find 
an  underlined  key  enclosed  in  braces  (e.g.,  {10 
N  }),  you  should  type  the  key  as  many  times  as 
indicated  (in  our  example,  you  would  enter  ten 
shifted  N's). 

If  a  key  is  enclosed  in  special  brackets,  H, 
you  should  hold  down  the  Commodore  keif  while 
pressing  the  key  inside  the  special  brackets.  (The 
Commodore  key  is  the  key  in  the  lower  left  corner 
of  the  keyboard.)  Again,  if  the  key  is  preceded  by 
a  number,  you  should  press  the  key  as  many  times 
as  necessary. 

Rarely,  you'll  see  a  solitary  letter  of  the  al- 
phabet enclosed  in  braces.  These  characters  can 
be  entered  on  the  Commodore  64  by  holding  down 


the  CTRL  key  while  typing  the  letter  in  the  braces. 
For  example,  {A}  would  indicate  that  you  should 
press  C  Nil    A.  You  should  never  have  to  enter 
such  a  character  on  the  VIC-20,  hut  if  you  do,  you 
would  have  to  leave  the  quote  mode  (press  RE- 
TURN and  cursor  back  up  to  the  position  where 
the  control  character  should  go),  press  CTRL-9 
(RVS  ON),  the  letter  in  braces,  and  then  CTRL-0 
(RVS  OFF). 

About  tlie  quote  mode;  von  know  that  you  can 
move  the  cursor  around  the  screen  with  the  CRSR 
keys.  Sometimes  a  programmer  will  want  to  move 
the  cursor  under  program  control.  That's  why 
you  see  all  the  { LEFT }'s,  {HOME }'s,  and 
{BLUJ's  in  our  programs.  The  only  way  the  com- 
puter can  tell  the  difference  between  direct  and 
programmed  t  nrsor  control  is  I  lie  quote  mode. 

Once  you  press  the  quote  (the  double  quote, 
SHIFT-2),  vou  are  in  the  quote  mode.  If  vou  tvpe 
something  and  then  try  to  change  it  bv  moving 
the  cursor  left,  you'll  only  get  a  bunch  of  reverse- 
video  lines.  These  are  the  symbols  for  cursor  loft. 
The  only  editing  key  that  isn't  programmable  is 
the  DEL  kev;  you  can  still  use  DEL  to  back  up  and 
edit  the  line.  Once  vou  type  another  quote,  you 
are  out  of  quote  mode. 

You  also  go  into  quote  mode  when  you  IN- 
SerT  spaces  into  a  line.  In  any  case,  the  easiest 
way  to  get  out  of  quote  mode  is  to  just  press  RE- 
TURN. You'll  then  be  out  of  quote  mode  and  you 
can  cursor  up  to  the  mistyped  line  and  fix  it. 

Use  the  following  table  when  entering  cursor 
and  color  control  kevs: 


When  You  Read:      Press: 

[CLEAR) 

{HOME) 

lUPl 

{down} 

{LEFT) 

{RIGHT) 

{RVS! 

{OFF! 

tBLK] 

IWHT] 

I  RED) 
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See:      When  You  Read:      Press: 


See:       When  You  Read:       Press: 


CTRL    111       1 

CTRL    |  i 

CTRL 

1 . 1 

CTRL 

1 '  1 

CTRL 

h  1 

o 

- 1 

c= 

'  1 

c= 

-1 

5 

*  1 

IS 

•  1 

c= 

:  V    I 

L 

|7i 

m 

§Bi 

□ 

fpi) 

B 

EF2} 

S3 

fF3) 

□ 

tF4l 

IB 

lF5) 

en 

lF6] 

H 

{F7} 

IS 

IF8) 

SLiJ 


See: 


1! 

SHIFT 

fl 

fl 

SHIFT 

(} 

f5 

SHIFT 

is 

f? 

SHIFT 

ff 

Riff  V*  Machine  Language 
AwJL  Jmm&  Entry  Program 

FOP  COmmOdOre  64  And  VIC-20  Charles  Brannon,  Program  Editor 


MLX  is  .i  labor-saving  utility  that  allows  almost 
failsafe  entry  of  machine  language  programs  pub- 
lished in  COMPUTE!^  GAZETTE.  You  need  to  know 
nothing  about  machine  language  to  use  MLX — it 
was  designed  for  everyone.  There  are  separate 
versions  for  the  Commodore  64  and  expanded 
VIC-20  (at  least  8K).  MLX  was  conceived  and  writ- 
ten by  Program  Editor  Charles  Brannon.  Important: 
MLX  is  required  to  type  in  the  machine  language 
programs  in  this  issue. 


Ml  X  is  .i  new  way  to  enter  long  machine  language 
(ML)  programs  with  a  minimum  of  fuss.  MLX  lots  you 
enter  the  numbers  from  a  special  list  that  looks  similar 
to  BASIC  DATA  statements.  It  checks  vour  typing  on  a 
iine-bydine  basis.  It  won't  let  you  enter  illegal  charac- 
ters when  you  should  be  typing  numbers.  It  won't  let 
you  enter  numbers  greater  than  255  (forbidden  in  ML), 
It  won't  let  you  enter  ihe  wrong  numbers  on  the  wrong 
line.  In  addition,  MLX  creates  a  ready-to-use  tape  or 
disk  file.  You  can  then  use  the  1  ,OAD  command  to  read 
the  program  into  the  computer,  as  with  any  program: 

LOAD  "filename",!,!    (fur  tape) 
LOAD  "filename'*,8,1     (for disk) 

To  start  the  program,  you  enter  a  SYS  command 
that  transfers  control  from  BASK   to  machine  language. 
The  starting  SYS  number  always  appears  in  the  appro- 
priate article. 

Using  MLX 

I  ype  in  and  save  the  correct  version  of  MLX  fur  your 
computer  (you'll  want  to  use  it  in  the  future),  When 
you're  ready  lo  type  in  an  Ml.  program,  rim  MLX. 
MLX  asks  you  lor  two  numbers:  the  starring  address 
,wk\  the  ending  address.  These  numbers  are  given  in 
the  article  accompanying  the  ML  program. 

You'll  see  a  prompt  corresponding  to  the  starling 
address.  The  prompt  is  the  current  lino  von  a  reentering 
from  the  lifting,  ll  increases  by  six  each  time  you  enter 
a  line.  That's  because  each  line  has  seven  numbers     -i\ 
<icln.il  data  numbers  plus  a  checksum  number,  lite 
checksum  verifies  that  you  tvped  the  previous  six  num- 
bers correctly.  If  you  enter  any  of  the  six  numbers 
wrong,  or  enter  the  checksum  wrong,  the  computer 
rings  a  buzzer  and  prompts  you  lo  reenter  the  line.  If 
you  enter  it  correctly,  a  hell  tone  sounds  and  you  con- 
tinue to  the  next  line. 

MLX  accepts  only  numbers  as  input.  It  you  make 
a  typing  error,  press  the  INS  1  I  )l  I   key;  I  he  entire 
number  is  deleted.  You  can  press  it  as  many  times  as 
necessarv  back  to  the  start  or  the  line.  If  you  enter 
three-digit  numbers  as  listed,  the  computer  automati- 
cally prints  the  comma  and  goes  on  lo  accept  the  next 
number.  If  you  enter  less  than  three  digits,  vou  can 


press  either  the  comma,  SPACL  bar,  or  RETURN  key 
to  advance  to  the  next  number.  The  checksum  auto- 
matically appears  in  inverse  video  for  emphasis. 

MLX  Commands 

When  you  finish  typing  an  ML  listing  (assuming  you 
type  it  all  in  one  session)  you  can  then  save  the  com- 
pleted program  on  {ape  or  disk.  Follow  the  screen 
instructions.  If  you  get  any  errors  while  saving,  you 
probablv  have  a  bad  disk,  or  the  disk  is  full,  or  you've 
made  a  typo  when  entering  the  MLX  program  itself. 

You  don't  have  to  enter  the  whole  ML  program  in 
one  sitting,  MLX  lets  you  enter  as  much  as  you  want, 
save  it,  and  then  reload  the  file  from  tape  or  disk  later. 
MLX  recognizes  those  commands: 

SHIFT-S:  Save  SH1IT-N:  New  Address 

SHIFT-L:  Load  SFUFT-D:  Display 

When  you  enter  a  command,  MLX  jumps  out  of 
the  line  you've  been  typing,  so  we  recommend  you  do 
it  at  a  new  prompt.  Use  the  Save  command  lo  save 
what  you've  been  working  on.  ll  will  save  on  tape  or 
disk  as  i I  you've  finished,  but  the  tape  or  disk  won' I 
work,  of  course,  until  you  finish  Ihe  typing.  Remember 
what  address  you  stop  at.  The  next  time  you  run  MLX, 
answer  all  the  prompts  as  you  did  before,  then  insert 
the  disk  or  tape.  When  you  get  to  the  entry  prompt, 
press  SHIFT-L  to  reload  the  partly  completed  file  into 
memory.  Then  use  the  New  Address  command  to 
resume  typing. 

To  use  the  New  Address  command,  pressSI  HFl'-N 
and  enter  the  address  where  you  previously  stopped. 
The  prompt  will  change,  and  you  can  then  continue 
typing.  Always  enter  a  New  Address  that  malches  up 
with  onv  of  the  line  numbers  in  the  special  listing,  or 
else  the  checksum  won't  work.  The  Display  command 
lets  you  display  a  section  of  your  typing.  After  you 
press  SHIFT-D,  enter  two  addresses  within  Ihe  line 
number  range  of  the  listing.  You  can  abort  the  listing 
by  pressing  any  key. 

The  special  MLX  commands  mav  seem  a  bit  con- 
fusing, but  as  vou  work  with  MLX,  thev  will  become 
valuable.  Lor  example,  what  if  vou  forgol  where  vou 
stopped  lyping?  Use  the  Display  command  lo  scan 
memory  from  the  beginning  to  the  end  of  the  program. 
When  you  reach  the  end  of  vour  typing,  the  lines  will 
contain  a  random  pattern  of  numbers.  When  you  see 
the  end  of  your  typing,  press  any  key  to  stop  the  listing. 
Use  the  New  Address  command  to  continue  typing 
from  the  proper  location. 

You  can  use  the  Save  and  Load  commands  to 
make  copies  of  the  completed  program.  Use  Load  to 
reload  the  tape  or  disk,  then  insert  a  new  tape  or  disk 
and  use  Save  to  make  a  new  copy. 

Be  sure  to  save  MLX;  it  will  be  used  for  future  ML 
programs  in  COMPUTFTs  GAZETTE. 

See  program  listings  on  page  177. 
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The  Automatic  Proofreader 


"The  Automatic  Proofreader"  will  help  you  type  in  program 
listings  from  0©MPUTE!'s  Gnisettc  without  typing  mistakes,  It 
is  a  short  error-checking  program  thai  hides  itself  in  memory. 
When  activated,  it  lets  you  know  immediately  after  typing  a 
line  from  a  program  listing  if  you  have  made  a  mistake. 
Please  read  these  instructions  carefully  before  typing  any 
programs  in  COMI'L'tl ■'''•.  i  ,.i/i>iii\ 

Preparing  The  Proofreader 

1.  Using  the  listing  below,  type  in  the  Proofreader.  The 
same  program  works  on  both  the  ViC-20and  Commodore 
64.  Be  very  careful  when  entering  the  DATA  statements  — 
don't  type  an  1  instead  of  a  I ,  an  O  instead  of  a  0,  extra 
commas,  etc. 

2.  SAVE  the  Proofreader  on  lape  or  disk  at  least  twice 
before  running  it  for  the  ftrsl  lime.  This  is  very  important  because 
the  Proofreader  erases  this  part  of  itself  when  you  first  type 
RUN. 

3.  Alter  the  Proofreader  is  SAVEd,  type  RUN.  It  will 
check  itself  for  typing  errors  in  the  DATA  statements  and 
warn  vou  il  there's  a  mistake.  Correct  any  errors  and  SAVE 
the  corrected  version.  Keep  a  copy  in  a  safe  place  — -  you'll 
need  it  again  and  again,  every  time  you  enter  a  program 
from  COMPUTEJ's  Gazette, 

4.  When  a  correct  version  nl  the  Proofreader  is  RUN,  it 
activates  itself.  You  are  now  ready  to  enter  a  program  listing. 
It  you  press  RUN/STOP-RESTORE,  the  Proofreader  is  dis- 
abled. To  reactivate  it,  just  type  the  command  SYS  886  and 
press  RETURN. 

Using  The  Proofreader 

All  VIC  and  (vl  listings  in  COMI'ITI  !\  Ci/eile  now  have  a 
i  tin  k>nm  miiiiivr  appended  to  the  end  of  each  line,  for  example 
":rem  123".  Don't  enter  this  statement  when  typing  ina  program. 
It  is  just  for  your  information.  The  rem  makes  the  number 
harmless  if  someone  does  type  it  in.  It  will,  however,  use  up 
memory  if  you  enter  it,  and  it  will  confuse  the  Proofreader, 
even  if  you  entered  the  rest  of  the  line  correctly. 

When  you  type  in  a  line  from  a  program  listing  and 
press  RETURN,  the  Proofreader  displays  a  number  al  the 
lop  of  your  screen.  This  checksum  number  must  match  the 
checksum  number  in  lite  printed  listing.  If  it  doesn't,  it  means 
vou  tvped  the  line  differently  than  the  way  it  is  listed.  Im- 
mediately recheck  your  typing.  Remember,  don't  type  the 
rem  statement  with  the  checksum  number;  it  is  published 
only  so  you  can  check  it  against  ihe  number  which  appears 
on  your  screen. 

The  Proofreader  is  not  picky  with  spaces.  Il  will  not 
notice  extra  spaces  or  missing  ones.  This  is  for  your  conven- 
ience, since  spacing  is  generally  not  important.  Hut  occasion- 
ally proper  sparing  is  important,  so  be  extra  careful  with 
spaces,  since  the  Proofreader  will  catch  practically  everything 
else  that  can  go  wrong. 

There's  another  thing  to  watch  out  for:  if  you  enter  the 
line  bv  using  abbreviations  for  commands,  the  checksum 
will  not  match  up.  Hut  there  e-  a  wav  to  make  Ihe  Proofreader 
check  il.  After  entering  the  line,  I  .IS  f  it.  Ibis  eliminates  the 
abbreviations.  Then  move  the  cursor  up  to  the  line  and  press 
RETURN.  It  should  now  match  the  checksum.  You  can  check 
whole  groups  of  lines  this  way. 

Special  Tape  SAVE  Instructions 

When  you're  done  typing  a  listing,  you  must  disable  the 
Proofreader  before  SAVEing  ihe  program  on  tape.  Disable 
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the  Proofreader  bv  pressing  RUN/STOP- RES  TORI-:  (hold 
down  the  RUN/STOP  key  and  sharply  hit  Ihe  RESTORE 
key).  This  procedure  is  not  necessary  for  disk  SAVEs,  but  you 
must  disable  the  Proofreader  this  imy  before  a  tape  SAVE. 

SAVE  to  tape  erases  the  Proofreader  from  memory,  so 
vou' 1 1  have  to  LOAD  and  RUN  it  again  if  you  want  to  type 
another  listing.  SAVE  to  disk  does  not  erase  the  Proofreader. 

Replace  Original  Proofreader 

If  you  typed  in  Ihe  original  version  of  the  Proofreader  (Oc- 
tober 1983  issue),  vou  should  replace  it  with  the  improved 
version  below.  We  added  a  POKL  to  the  original  version  lo 
protect  it  from  being  erased  when  you  LOAD  another  pro- 
gram from  tape.  The  POKE  does  protect  the  Proofreader, 
and  the  Proofreader  itself  was  not  affected.  However,  a 
quirk  in  the  VIC- 20' s  operating  system  means  that  programs 
typed  in  with  the  Proofreader  and  SAVEd  on  tape  cannot  be 
LOADed  properly  later,  II  you  LOAD  a  program  SAVI  d 
while  the  Proofreader  was  in  memory,  vou  see  ?I.OAI ) 
ERROR.  This  applies  only  to  VIC  tape  SAVEs  (disk  SAVEs 
work  OK,  and  the  quirk  was  lived  in  the  Commodore  64). 

If  you  have  a  program  typed  in  with  the  original  Proof- 
reader and  SAVEd  on  tape,  follow  this  special  LOAD 
procedure; 

1.  Turn  Ihe  power  off,  I  hen  on. 

2.  LOAD  the  program  from  tape  (disregard  the  ?I.OAD 
ERROR). 

3.  Enter:  POKE  45,PEEK(174):POKE  46,FEEK(175):CLR 

4.  ReSAVE  the  program  to  tape. 

The  program  will  I. (.IAD  fine  in  the  future.  We  strongly 
recommend  that  you  type  in  the  new  version  of  the  Proof- 
reader and  discard  the  old  one. 


Automatic  Proofreader  For  VIC  And  64 

100  PRINT" {CLRj PLEASE  WAIT. . . " :FORI=886TO 

101S:READAiCK=CK+A;POKEI,A:NEXT 
110  IF  CK<> 17539  THEN  PRINT" ( DOWN] YOU  MAD 
E  AN  ERROR": PRINT" IN  DATA  STATEMENTS. 
"  :  END 
120  SYSS86:PRINT" [CLR} [2  DOWN} PROOFREADER 

ACTIVATED. " :NEW 
886  DATA  173,036,003,201,150,208 
892  DATA  001,096,141,151,003,173 
898  DATA  037,003,141,152,003,169 
904  DATA  150,141,036,003,169,003 
910  DATA  141,037,003,169,000,133 
916  DATA  254,096,032,087,241,133 
922  DATA  251,134,252,132,253,008 
928  DATA  201,013,240,017,201,032 
934  DATA  240,005,024,101,254,133 
940  DATA  254,165,251,166,252,164 
946  DATA  253,040,096,169,013,032 
952  DATA  210,255,165,214,141,251 
958  DATA  003,206,251,003,169,000 
964  DATA  133,216,169,019,032,210 
970  DATA  255,169,018,032,210,255 
976  DATA  169,058,032,210,255,166 
982  DATA  254,169,000,133,254,172 
988  DATA  151,003,192,087,208,006 
994  DATA  032,205,189,076,235,003 
1000  DATA  032,205,221,169,032,032 
1006  DATA  210,255,032,210,255,173 
1012  DATA  251,003,133,214,076,173 
1018  DATA  003 


Bug-Swatter: 

Modifications  And  Corrections 


•  In  "Hard hat  Climber"  (January),  the  climber 
may  accidentally  jump  when  the  joystick  is  pushed 
diagonally.  Thanks  to  reader  Stephen  A.  Ohayon 
tor  discovering  this  correction: 

105    IF(JVAND16)=16THENJV=l:GOTO109:rem   62 

It'  you  want  the  climber  to  jump  only  when  the 
joystick  is  in  the  neutral  position,  change  the  first 
16  to  a  31. 

•  The  program  listing  of  "Cave-In  For  VIC-20" 
(January)  was  inadvertently  labeled  "Cave-In  For 
64."  The  program  will  run  only  on  the  VIC-20. 

•  The  Commodore  64  version  of  "MLX: 
Machine  Language  Entry  Program"  (December 
1983)  contained  lines  which  were  longer  than  the 
80-ch  a  racier  limit.  Lines  160,210,  and  230  should 
be  entered  with  abbreviated  BASIC  commands  (P 
Shift-0  for  POKE,  ?  lor  PRINT).  If  you  abbreviate, 
you  will  be  able  to  type  these  lines  within  80  char- 
acters, but  the  Proofreader  rem  numbers  will  ap- 
pear to  be  incorrect.  The  program  listing  was  cor- 
rected  in  the  January  version  of  MLX  (see  below). 

•  In  correcting  the  problem  described  above, 
line  210  of  MLX — 64  Version  (January)  was  split 
into  two  lines.  But  when  line  215  was  added,  a 
closing  parenthesis  was  omitted.  To  correct  this, 
add  a  closing  parenthesis  to  the  end  of  line  215. 

•  Some  readers  have  had  difficulty  using 
"The  Assembler"  (November  1483  "Machine  Lan- 
guage For  Beginners")  to  enter  Programs  1  and  2 
(December  1983),  encountering  7EXTRA  IG- 
NORED errors  on  lines  using  indexed  addressing. 
This  is  because  Commodore  BASIC  will  not  accept 
commas  in  the  middle  of  INPUT.  Programs  I  and 
2  were  disassembled  using  the  comma  convention; 
readers  who  want  to  use  The  Assembler  should 
tvpe  the  program  lines  without  commas.  For  ex- 
ample, instead  of  S  7/1  1024,  Y  use  ST  A  1024Y. 

In  addition,  line  200  of  The  Assembler  should 
have  included  an  Automatic  Proofreader  rem 
number  of  0. 

•  The  printer  used  to  generate  GAZli'lTE  pro- 
gram listings  still  places  an  occasional  random 
question  mark.  Line  1018  of  "Disk  File  Manager" 
(December  1983)  contains  one  such  superfluous 
character.  To  correct  this,  delete  the  question  mark 
after  FILE=  .  The  program  runs  as  listed,  but  the 


Proofreader  checksum  number  will  not  be  correct 
if  the  question  mark  is  included. 

•  "Thinking"  (December  1983)  contains  a 
minor  typographical  error.  If  the  REM  is  removed 
from  line  2  to  convert  Thinking  to  Thinking  (larder, 
there  are  nine  switches  instead  of  six.  But  the 
prompt  in  line  132  savs  there  are  six.  To  correct 
this,  change  YOUR  NUMBER  (1-6)  to  YOUR 
NUMBER  (T-"G$"). 

•  "Foolproof  INPUT"  ("PowcrBASIC,"  De- 
cember 1 983)  as  published  does  not  solve  the  prob- 
lems caused  by  commas  and  colons.  It  disables 
the  cursor  keys  and  certain  other  function  keys, 
but  commas  will  still  cause  an  ?EXTRA  IGNORED 
error.  The  solution  is  to  POKE  198,1:  POKE  631,34 
before  each  INPUT.  In  a  program  with  many 
INPUT  statements,  these  two  POKEs  could  be 
put  into  a  subroutine.  After  the  POKEs,  the  com- 
puter will  be  in  quote  mode,  which  allows  entry 
of  commas  and  colons. 

•  Readers  who  bowled  a  perfect  game  (300) 
in  "Bowling  Champ"  {December  1983)  may  have 
been  disappointed  to  find  290  as  their  score.  Our 
thanks  to  reader  David  McDonnell,  Jr.,  for  finding 
this  bug.  To  correct  it,  change  these  lines: 

209  J=0:GOSUB430:GOSUB550iT(Z9)=T(Z9)+J 

s rem  83 

210  K=J+176:IFK=186THENK=152;T{Z9)=T(Z9)- 
J*(U=0)  jrem  8 

211  PRINTC${Z9);T{Z9) :POKEL(Z9) ,K;POKEL(Z 
9)+CO,4:L(Z9}=L(Z9)+l  : rem  216 

•  "Spelling  Bee  For  VIC"  (December  1983) 
contains  a  minor  error.  Line  360  includes  a  PRINT 
color  which  is  accessible  on  the  Commodore  64, 
but  not  on  the  VIC.  To  remedy  this,  change 
Commodore-5  to  CTRL-5  (purple). 

•  Readers  Wesley  Evans  and  Dick  Sloss  both 
discovered  an  error  in  the  program  "Sprite  BASIC" 
from  "Sprites  Made  Easy"  (December  1983).  The 
problem  occurs  in  the  colors  of  sprites  1-7.  To 
correct  this,  make  the  following  changes: 

170    FOR    1=49152    TO   49384 : READN: POKE    I,N:A 
=A+NsNEXT    I  :rem    189 

180    IP   A<>30780    THEN    PRINT    "ERROR    IN    DATA 
STATEMENTS"  s  rem  40 

280    DATA    138,164,2,145,251,32,253,174,32, 
227, 192,224,16,176,146,138, 153 

: rem   179 

300    DATA    23,208,32,253,174,32,227,192,224 
,4,176,223,134,2,70,2,144  : rem   160 

340    DATA    32,158,183,164,2,96  i rem   104 

In  addition,  some  readers  have  run  into  prob- 
lems with  the  "Tie  Fighter"  program  in  the  same 
article.  The  program  runs  as  listed,  but  only  if 
"Sprite  BASIC"  is  loaded  and  run  first.  (Of  ' 
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COMMODORE  64 

Finally,  Excellent  So  It  ware 
At  An  Affordable  Price! 
Compare:    •  MENU  DRIVE 

•  USER  LOVABLE 

•  ADVANCED  FEATURES 

DATA  BASE/MAIL  LIST 

Fasl  random  access  to  any  record 
Search  on  any  field.  Machine  Language 
sorts.  Prints  mailing  labels.  Large 
records.  Erght  fields. 

LOAN  ANALYSIS  SYSTEM 
Calculate  a  loan's  term,  interest 
rate,  principal  or  monthly  payment 
Display  an  amortization  schedule 
on  screen  or  printer.   Yearend 
totals  for  payment  to  interest  and 
payment  to  principal.   Printer  ver- 
sion also  gives  principal  and  in- 
terest paid  to  date  for  the  life  of 
the  loan. 

HOME  INVENTORY 

Record  all  your  valuables.   Print  in- 
ventory lists  on  screen  or  printer. 
Record  700  items  per  disk.  Search 
items  by  Category,  Manufacturer  or 
Item  Description.  Indispensable 
in  case  of  theft  or  fire. 
ALLTHREE  PROGRAMS  FOR 
$26.95      SORRY.  DISK  ONLY 
SEND  CHECK  OR  MONEY  ORDER  TO 
MULTI-PAC  SOFTWARE 
BOX  7342 
TULSA.  OK    74170 

WE  PAY  TAX  AND  POSTAGE' 


80  COLUMNS! 
25  LINES 

A  FULL  PROFESSIONAL 
DISPLAY  FOR 

Commodore  64 


with 


TM 


Screenmaker 

Screenmaker  is  a  video  display  generator 
module  that  plugs  into  the  expansion  connector 
of  the  Commodore  64. 

v/  WORD  PROCESSING 
S  CALCULATIONS 
v/  BASIC  PROGRAMS 

Screenmaker  provides  a  B  8  W  video  signal 
that  connects  to  your  video  monitor  to  provide 
;i  lull  80  characters  on  each  line  With  Screen- 
maker,  Screen  displays  will  appear  the  same 
as  the  printer  output.  Trial  printouts  can  be 
eliminated,  Word  processing  is  easier,  Forms 
and  reports  can  be  sel  up  taster.  Scroenmaker 
features  a  bankswitched  memory,  <10/80video 
switch,  and  a  full  character  set  including  graphics. 

SCREENMAKER S1  59.95 

Copy-Writer  Word  Processor. . .  $  79.95 

SCREENMAKER/ 

Copy-Writer  Package $1 99.95 


flVUCROTECH]    'ZX 
215-757-0284 


02 
ne  Pa  19047 


TALK  OR  SING-The  "64"  responds 

IN  YOUR  OWN  VOICE 


Enter  up  lo  ISO  of  your  own  words  and  phrases 
Compile  response  with  BASIC  Slore  word  sols  on 
tape  or  disk  for  unlimited  selections  Easy  Tor  anyone 
to  set  up  and  use.  Complete  wilh  cassette  software 

(transrerrabl'e  lo  disk)  with  demonstration  programs 
lor  Talking  clock,  calculator,  and  black  |ack  How  To 
defme  every  key  as  a  spoken  phrase  or  song  note  or 
other  sound  There  are  so  many  applications  and 
special  effects  it  boggles  the  mind1  Soon  available 
lor  other  popular  computers  Software  lor  word 
recognition  to  be  auaifndle 


s119 


95 


ONLY 

WE  CAN  DEMONSTRATE 
OVER  THE  TELEPHONE!! 

COVOX  CO. 

675-D  Conger  SI.  Eugene,  OR  97402 

Tel:  (503)  342-1271,  Telex  706017 

Check,  money  order,  or  VISA'WC 

(Dealer  inquiries  invited) 


Tree  Tutor  For  Tots 


(Article  on  page  60.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTE!'*  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


Program  1 :  Tree  Tutor  For  VIC 

2  PRINT" (CLR] {8  DOWN}[RVS}{5  RIGHT]* [UP ) 
f  LEFT ) *TREE { RIGHT } TUTOR* { DOWN } { LEFT } * 
{DOWN) [12  LEFT] *(RIGHT}F0R[ RIGHT] TOTS 
(RIGHT)*"  :rem  121 

4  POKE36869, 2  55 : POKE52 , 28 : POKE56 , 28 :CLR: F 
ORI=7168TQ7679:POKEI, PEEK (1+2  5600) :NEXT 

:rem  97 
6  FORI=7168T07  263:READN:POKEI,N:NEXTiPOKE 
36879, 29 :V=36878:M=36876:C=30720 

: rem  173 
8  X=0:PRINT"{CLR](BLU) [RVS] (2  SPACESjCHOO 
SE  HIGHEST  SUM"SPC( 10 ) " ( 2-9 ) "    :  rem  83 
10  GETF$ :F=VAL(F$ ) : IFF<2ORF>9THEN10 

:rem  113 
12  PRINT" [CLR] (RVS) WHEN  DO  YOU  WANT  TO 

{3  SPACES} SEE  FRUIT? (2  DOWN ] ( 4  LEFT } U 
)  ALWAYS"SPC(12)"{DOWN](2)  IF  WRONG" 

: rem  149 
14  GETI?:I=VAL(I$)  :  IFK10RI>2THEN14 

s rem   128 
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16  PRINT" (CLR} " : POKE8183 , 205 : POKE8184, 228 
:POKE8185, 206 :FORB=38903TO38905 : POKEB, 
10sNEXT  :rem  216 

18  FORL=lTO10sQ=240:IFI$="2"THENI=2 

s  rem  60 

20  T=INT(RND( . )*F)+1  : rem  94 

22  B=INT(RND( . )*( (F+l)-T)) : IFT=T1ANDB=B1T 
HEN20  : rem  166 

24  PRINT" {HOME] (2  DOWN) " ; :FORY=1TO20 : PRIN 
T"[18  SPACES} ":NEXT: PRINT" (9  SPACES]"; 

: rem  94 

26  FORZ=38796T038883:P0KEZ,2:NEXT  : rem  66 

28  PRINT" (HOME) (2  DOWN){GRN}{3  SPACES }HFH 
FHF":PRINT"[2  SPACES } HJJJJJJF" ! PRINT" 
[ SPACE } HJJJJ JJJJF" : PRINT "  GJJJJJ JJJI  " 

: rem  97 

30  PRINT"  HJJJJJJJJF": PRINT"  GJJJJJJJJI": 
PRINT"  HJJJJJJJJF": PRINT"  GJJJJJJJJI" 

:rem  209 

32  PRINT" {2  SPACES }GJJJJJJI" : PRINT" 

[3  SPACES)GJJJJI":PRINT"(4  SPACES }GJJI 

": PRINT" {5  SPACES} [ BLK] J J (DOWN) 

( 2  LEFT ] J J { DOWN ) { 2  LEFT ) J J  J  DOWN } 

{2  LEFT)JJ";  : rem  123 

34  PRINT" (DOWN) (2  LEFT } JJ ( DOWN } { 2  LEFT}JJ 
(DOWN) (3  LEFTjHJJF"  : rem  0 

36  X=X+1: PRINT" (HOME) (8  DOWN }{ 16  RIGHT} 
(BLK]"T"{4  LEFT] {2  DOWN)+"B"[4  LEFT] 
[DOWN) [RVS}***":PRINTSPC(17) "? 
[2  LEFT}";  : rem  204 

38  IFI=2THEN76  : rem  78 

40  POKE7751,11:POKE7751+C,10:IFT=1THEN58 

: rem  84 

42  POKE7860, 1 1 : POKE7860+C, 10 : IFT=2THEN58 

: rem  89 


44  POKE7885, 11 : POKE7885+C, 10 : IFT=3THEN58 

: rem  106 
46  POKE7775, 11 :POKE7775+C, 10 : IFT=4THEN58 

:rem  105 
48  POKE7815,11:POKE7815+C,10:IFT=5THEN58 

:rem  98 
50  POKE7820,11:POKE78204-C,  10  ;  IFT=6THEN58 

:rem  84 
52  POKE7903 , 11 : POKE7903+C, 10 : IFT=7THEN58 

:rem  91 
54  POKE7840,11:POKE7840+C, 10 : IFT=8THEH53 

: rem  94 
56  POKE7928, 11 : POKE7928+C, 10 
58  IFB=0THEN76 
60  POKE8086,0:IFB=1THEN76 
62  POKE8078,0:IFB=2THEN7G 
64  POKE8123,0:IFB=3THEN76 
66  POKE8150,0:IFB=4THEN76 
68  POKE8106,0:IF8=5THEN76 
70  POKE8146,0:IFB=6THEN76 
72  POKE8126,0:IFB=7THEN76 


74  POKE8152,0 
76  POKE198,0 


: rem  64 
: rem  71 
rem  220 
rem  224 
rem  218 
rem  221 
rem  225 
rem  223 
rem  224 
rem  198 
rem  154 


78  GETA?:AN=VAL(A$) : IFAN<10RAN>9THEN78 

:rem  93 

80  PRINT AN : FORZ=1TO500 : NEXT : I FAN=T+BTHEN8 

6  :rem  17 

82  PRINT" { RVS } [9  DOWN} TRY  AGAIN" ; ; POKEV, 5 

:POKEM,231:FORZ=1TO200:NEXT:POKEM,225 

srem  42 
84  FORZ=1TO200 :NEXT : POKEV, 0 : 1=0 : GOT036 

:rem  176 

86  PRINT" {RVS) {9  DOWN} HOORAY  1 (2  SPACES} "S 

PC{7)L; :T1=T:B1=B:A=7700       :rem  212 

88  PRINT" ( HOME }[ 2  SPACES }"; :F0RB=1T03 : PRI 

NT"(blK) [0FF]cAE{3  LEFT}"; :F0RZ=1T075: 

NEXT:PRINT"BAD{3  LEFT}";        :  rem  147 

90  F0RZ=1T075:NEXT:PRINT"[3  SPACES} 

[2  LEFT} (DOWN)"; :NEXT  : rem  170 

92  F0RB  =  1T02: PRINT"  f RED)  ( UP  }@ {UP  } 

(2  LEFT} (BLK}CAE{3  LEFT } " ; : IFB=2THENPO 
KE7730,6:POKE7730+C,5:GOTO96   : rem  251 
94  P0KE77 51 , 10 : POKE77 51 +C , 5 : POKE7728 , 6 : PO 
KE7728+C, 5:POKE7729,8:POKE7729+C, 5 

: rem  115 
96  FORZ=lT075jNEXT:PRINT"BAD{3  LEFT}";:FO 
RZ  =  1T075:NEXT:PRINT"(3  SPACES}  (DOWN) 
( 2  LEFT } " : : NEXT  : rem  5 

98  F0RB=1T013: PRINT"  [RED} @ (UP } { 3  LEFT} 
(BLK}CAE(3  LEFT}"; : FORZ=lT075 :NEXT: PRI 
NT"BAD(3  LEFT}";  : rem  158 

100  F0RZ=lTO75:NEXT:PRINT"[3  SPACES} 

[DOWN] (2  LEFT}";:NEXT         : rem  213 

102  PRINT" {UP} (LEFT}"; : PRINT"  CA(2  LEFT}" 

; :GOSUB124:PRINT"BA{2  LEFT]"; SGOSUB12 

4:PRINT"  C(LEFT} " ; :GOSUB124   : rem  237 

104  PRINT"B(LEFT]"; :GOSUB124 : PRINT"  "j 

: rem  23 

106  FORB=lTO{15-L) : POKEM,Q; POKEA, 32:A=A+2 

2 : POKEA , 0 : POKEA+C , 2 : Q=Q-5 : NEXT : POKEV , 

0:NEXT  :rem  2  51 

108  PRINT" (HOME} (8  DOWN} (11  RIGHT} 

(11  SPACES) (DOWN} (10  LEFT] (RVS) (BLKjY 
OU  GOT  10(DOWN](10  LEFTjAPPLES  IN" 

: rem  240 
110  PRINT" {RVS} (11  RIGHT] "X "TRIES. {DOWN} 
{4  LEFT} {2  SPACES} ":FORZ=1TO300:NEXT 

: rem  34 

112  PRINT" {HOME} (21  RIGHT] {BLK]U (LEFT) "; : 

F0RZ  =  1T075  sNEXT: PRINT"B [LEFT j " ;  :FORZ  = 

1T075:MEXT  : rem  157 


114  PRINT"  (DOWN} (2  LEFT}CA{2  LEFT]";jFOR 
Z=1T075 :NEXTjPRINT"BA{ 2  LEFT}"; : FORZ= 
1T075:NEXT  : rem  144 

116  F0RB=1T07:PRINT"[3  SPACES} [4  LEFT] 

(DOWNjCAE  (4  LEFT}"; :F0RZ=1T075: NEXT: 
PRINT "BAD {3  LEFT)"; : F0RZ=1T075 :NEXT 

: rem  215 

118  NEXT: PRINT" (RVS} (6  DOWN} [ LEFT] ( BLU) HI 
T  *(DOWN)[5  LEFT] TO  PLAY {DOWN} 
{7  LEFT}AGAIN."  : rem  12 

120  GETPS:IFP$o"*"THEN120        j  rem  206 

122  GOT08  : rem  6 

124  POKEV, 9 :F0RB=1T02 ! POKEM, Q : POKEA, 32 :A= 
A+22 : POKEA, 0 : POKEA+C, 2 :Q=Q-5 : F0RZ=1T0 
15:NEXT  : rem  127 

126  NEXT:RETURN  : rem  242 

128  DATA24,8, 106,255,255,255,126,52,60,12 
6,187,199,239,126,40,40       s rem  147 

130  DATA0, 0,0, 15, 3 1,48, 96, 192, 240, 120, 12, 
7,3,0,0,0,0,0,0,240,248,12,6,3 

t rem  137 

132  DATA1 5, 30, 48, 224, 192, 0,0, 0,192, 240, 24 
8,252,252,254,255,255  :rem  18 

134  DATA2  55, 255, 127, 127, 63, 31, 15, 3, 3, 7, 15 
,31,63,63,127,255  :rem84 

136  DATA2  55, 254, 154, 252, 252, 248, 224, 192,2 
55,255,255,255,25  5,25  5,255,25  5 

:rem  254 

138  DATA245,105,170,170,170, 170,170,105 

: rem  169 

Program  2:  Tree  Tutor  For  The  64 

100  POKE5  3  2S1,1:POKE53  270,PEEK(532  70)OR16 
:POKE532B2,5:POKE53283,2      : rem  207 
110  PRINT" (CLR) ( 11  DOWN}[i2  RIGHT}"; 

:rem  72 
120  PRINT"(BLK}*[UP} {LEFT}*TREE(2  RIGHTJT 
UTORMdOWN}  [LEFT]*  {DOWN}  {13  LEFT]* 
[2  RIGHT) FOR [RIGHT] TOTS [RIGHT] *" 

:rem  131 
130  PRINT" {4  DOWN} (11  RIGHT]  LOADING 

{2  SPACES} DATA"  : rem  0 

140  POKE56334,PEEK( 56334) AND254: POKE1 , PEE 

K(1)AND251  :rem  182 

1 50  POKE56 , 48 : CLR : FORI=l 2288T01 6383 : POKEI 

,PEEK(I+40960) :NEXT  :reml23 

160  POKEI , PEEK( 1 }0R4: POKE56334 , PEEK( 56334 

)ORl  -rem  134 

170  FORI=12288T012383:READN: POKEI, N:NEXT: 

POKE53281,l:C=54272  : rem  126 

180  FORQ=CTOC+24 : POKEQ , 0 : NEXT: POKEC+24 , 1 5 

:POKEC+5, 17:POKEC+6,245       : rem  154 

190  X=0:PRINT"{CLR} {BLK} [2  SPACES) [RVS}  C 

HOOSE  HIGHEST  SUM  "SPC ( 10 )  "  ( 2-9 ) " 

: rem  38 
200  GETF$:F=VAL(F$) : IFF<2ORF>9THEN200 

:rem  211 
210  PRINT" (CLR) {4  RIGHT} [RVS ] WHEN  DO  YOU 
{SPACE} WANT  TO  SEE  FRUIT? [4  DOWN}" 

:  rem  6 
220  PRINTSPC(12) "(1 )  ALWAYS ( 4  DOWN}" 

: rem  1 50 
230  PRINTSPC(12) "(2)  IF  WRONG"  : rem  159 
240  GET1 ? : I =VAL ( I  $ ) : I FI < 10RI >  2THEN240 

: rem  226 
250  PRINT" (CLR) " : POKE1938, 77 : POKE1940,  100 
:POKE1942,78  : rem  155 

260  FORB=56210TO56214:POKEB, 10:NEXT 

:rem  82 
270  FORL=1TO10:Q=240 : IFIS="2"THENI=2 

: rem  108 
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280 
290 

300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 
410 
420 

430 

440 

450 

460 

470 

480 

490 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 

620 

630 


T=INT{RND( . )*F)  +  1  J  rem  150 

B=INT(RND{ . )*( (F+l)-T) ) : IFT=T1ANDB=B1 
THEN280  :rem  21 

PRINT" {HOME] {2  DOWN}"; :F0RY=1T021 i PRI 
NT"  (19  SPACES) ":NEXT: PRINT" 
t  L2  SPACES)";  : rem  140 

FORZ=56016TO56176sPOKEZ,2:NEXT:POKE5  3 
272,29  :rem  93 

PRINT" (HOME) {2  DOWN){GRN){3  SPACES )HF 
HFHFHFHF" : PRINT" { 2  SPACES  }HJJJJJJJJJ J 
>■'"  :rem  252 

PRINT"  HJJJJJJJJJJJJF": PRINT"  GJJJJJJ 
JJJJJJI"  :retn  128 

PRINT"  HJJJJJJJJJJJJF": PRINT"  GJJJJJJ 
JJJJJJI"  trem  129 

PRINT"  HJJJJJJJJJJJJF";PRINT"  GJJJJJJ 
JJJJJJI"  :  trem  130 

PRINT" I  2  SPACES }GJJJJJJJJJJI " : PRINT" 
(3  SPACES }GJJJJJJJJI":PRINT" 
(4  SPACES JGJJJJJJ I"  :rem  32 

PRINT" {5  SPACES }GJJJJI{ DOWN} (5  LEFT} 
[BLK}JJJJ[D0WN} [4  LEFT] |JJJJ { DOWN} 
(4  LEFT}JJJJ";  : rem  146 

PRINT  "  {  DOWN }  ( 4  LEFT  ]  JJJJ  (  DOWN ) 
{4  LEFT}JJJJ{DOWN} [5  LEFT}HJJJJF" 

j rem  158 
X=X+1: PRINT" {HOME} {8  DOWN} {16  RIGHT} 
[BLK}"T"{4  LEFT} {2  D0WN)+"B"[4  LEFT} 
[DOWN}***"  :rem  143 

PRINTSPCT17) "?{2  LEFT)";  : rem  184 
IFI=2THEN600  trem  161 

POKE1151 , 11: POKE1151+C, 10 : IFT=1THEN51 
0  : rem  151 

IFT=2THEN51 

: rem  159 
IFT=3THEN51 

:rem  177 
POKE1196+C,10:IFT=4THEN51 

:rem  175 
POKE1269+C.10 


POKE1226, 11 

0 

POKE1396,ll 

0 

POKE1196,ll 

0 

POKE1269, 11: 

0 

PQKE1278, 11: 

0 

P0KE1429,11: 

0 

POKE1314.U: 

0 

P0KE1474, 11: 

0 

IFB=0THEN600 


POKE1226+C, 10; 
POKE1396+C, 10; 


POKE1278+C,10 
POKE1429+C10 
POKE1314+C,  10 
POKE1474+C,  10 


POKE1762,0 
POKE1 747,0 
POKE1829,0 
POKE1878,0 
POKE1 798,0 
POKE1871,0 
POKE1834,0 
POKE1882,0 
POKE198,0: 


IFB=1THEN600 
IFB=2THEN600 
IFB=3THEN600 
IFB=4THEN600 
IFB=5THEN600 
IFB=6THEN600 
IFB=7THEN600 


IFT=5THEN51 

:rem  179 

IFT=6THEN51 

: rem  181 

IFT=7THEN51 

:rem  179 

IFT=8THEN51 

: rem  167 

IFT=5THEN51 

: rem  170 

: rem  153 

: rem  48 

:  rem 

:  rem 

:rem 

:  rem 

:  rem 

:  rem 

:  rem 


53 
56 
62 
65 
59 
60 
252 


rem  253 


640 

650 
660 

150 


GETA?tAN=VAL(A$) : IFAN<1ORAN>9THEN610 

: rem  17  3 
PRINT { AN ) : FORZ=1TO500 : NEXT : I FAN=T+BTH 
EN660  :rem  192 

PRINT" (RVS) (9  DOWN}TRY  AGAIN [OFF} " ; : ? 
OKEC, 5:POKEC+l, 5  :FORZ  =  1TO200 tNEXT 

:rem  78 
POKEC+4 , 33 : FORZ=1TO200 : NEXT : POKEC+4 , 3 
2  :rem  48 

I=0:GOTO390  : rem  96 

PRINT " { RVS } { 8  DOWN ) { RVS } { DOWN ) HOORAY  1 
{2  SPACES) "SPC{ 7 }L; :T1=T: B1=B; A=1060 

:rem    13 
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670  PRINT" (HOME) [4  RIGHT) ";: F0RB=1T03 : PRI 
NT"{BLK} {OFFJcAE(3  LEFT}"; :F0RZ=1T075 
rNEXT; PRINT "BAD {3  LEFT}";      : rem  52 

680  F0RZ=1T075 tNEXT: PRINT" (3  SPACES} 

{2  LEFT)  {DOWN}'"  j  :  NEXT         trem  223 

690  FORB=lT03: PRINT"  (RED } [UP } i (UP} 

{2  LEFT){BLK}CAE{3  LEFT ) " ; : IFB=2THENP 
OKElU2,6:POKE1112+C,5tGOTO720;rem  66 

700  POKE1151,10:POKE1151+C,S:POKE1110,6:P 
OKE1110+C,5:POKE1111,8         trem  53 

710  P0KE1111+C,5  :rem  90 

720  F0RZ=lT075:NEXTtPRINT"BAD{3  LEFT}";:F 
0RZ=1T07  5:NEXT:PRINT"(3  SPACES} {DOWN} 
[2  LEFT}";:NEXT  : rem  47 

730  F0RB=1T027:PRINT"  (RED)@(UP){3  LEFT) 
(SPACE) [BLK}CAE[3  LEFT)"; ;F0RZ=1T075: 
NEXT: PRINT "BAD (3  LEFT}";      : rem  204 

740  F0RZ=1T045 tNEXT: PRINT" (3  SPACES} 

{DOWN} (2  LEFT)";:NEXT         : rem  217 

7  50  PRINT" {UP} {LEFT}"; : PRINT "  CA(2  LEFT}" 
; :GOSUB930:PRINT"BA{2  LEFT}"; :GOSUB93 
0  trem  137 

760  PRINT" (2  SPACES} (LEFT)"; :GOSUB930 

: rem  156 

770  PRINT" [2  SPACES} (LEFT}  " ; :GOSUB930 : PR 
INT" {DOWN} {3  LEFT} {3  SPACES }": rem  144 

780  POKEC+4, 17  :rem  4 

790  FQRB=lT014-L:POKEC+l,Q/4:POKEC,Q/4:PO 
KEA, 32 :A=A+40 t POKEA, 0 : POKEA+C, 2 :Q=Q-5 

:rem  230 

800  NEXT: POKEC+4, 16: NEXT         : rem  238 

810  PRINT" [HOME) [8  DOWN) [22  RIGHT} 

(11  SPACES} {DOWN} [10  LEFT) {RVS} (BLK) 
{SPACE} YOU  GOT  10";  : rem  219 

820  PRINT" (RVS} {DOWN} (11  LEFT) {3  SPACES} A 
PPLE(3  SPACES}";  : rem  250 

830  PRINT"(RVS} {DOWN} Ell  LEFT} IN"X" {LEFT} 
TRIES.  ";  :FORZ  =  1TO300 tNEXT    : rem  166 

840  PRINT" {OFF} [DOWN} {11  LEFT] {11  SPACES} 

trem  207 

850  PRINT" {HOME} (31  RIGHT} ( RLK}U{ LEFT} "; : 
F0RZ=1T075 :NEXT: PRINT "B{ LEFT} "; 

: rem  87 

860  F0RZ=1T075:NEXT  : rem  213 

870  PRINT"  (DOWN} {2  LEFT}CA(2  LEFT)";:FOR 
Z=1T075:NEXT:PRINT"BA{2  LEFT}"; :FORZ= 
1T075:NEXT  : rem  153 

880  F0RB=1T07:PRINT"[3  SPACES} {4  LEFT] 

{DOWN]CAE  (4  LEFT}"; :F0RZ=1T075: NEXT: 
PRINT "BAD {3  LEFT}";  : rem  110 

890  FORZ=lT075 :NEXT  : rem  216 

900  NEXT: PRINT "(RVS} [6  DOWN} [ LEFT} [BLU} HI 
T  * { DOWN } { 5  LEFT } TO  PLAY ( DOWN } 
{7  LEFT} AGAIN."  : rem  11 

910  GETP$:IFP?o"*"THEN910        :  rem  220 

920  POKE53272,21:GOTO190  : rem  105 

930  F0RB=1T02 : t POKEA, 32 :A=A+40 : POKEA, 0 

: rem  11 

940  F0RZ  =  1T015:NEXT:NEXT.-RETURN    : rem  97 

950  DATA24,8, 106,255,255,255, 126,52,60,12 
6,187,199,239,126,40,40       :rem  150 

960  DATA0, 0,0, 15, 31, 48, 96, 192, 240, 120, 12, 
7,3,0,0,0,0,0,0,240,248,12,6,3 

trem  148 

970  DATA15, 30,48, 224, 192,0,0,0, 192,240,24 
8,252,252,254,255,255  : rem  28 

980  DATA255,255, 127, 127, 63, 31, 15, 3, 3, 7,15 
,31,63,63,127,255  :rem93 

990  DATA255.254, 254,2  52,252,248,224, 192,2 
55,255,255,255,255,255,255,255  .-rem  6 

1000  DATA245,105,170, 170 , 170, 170, 170, 105 

: rem  206 


VICreations 

(Article  on  page  124.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTERS  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


1  REM  REMEMBER  TO  CHNG{2  SPACES} "N",  LINE 

#900  WHEN{3  SPACES} ADDING/DELETING  DAT 

A{2  SPACES] STATEMENTS  :rem  63 

10  PRINT" {CLR} {DOWN}  DO  YOU  WISH  TO  SEE": 
PRINT"  THE  MENU?": PRINT" [DOWN}  (PRESS 
[SPACEjY  OR  N)"  :rem  195 

20  GETY$:IFYS=""THEN20  :rem  23 

21  IFY$="Y"THEN800  :rem  16 
25  PRINT"{2  DOWN]  LOADING  DATABASE  ...'*:  PR 

INT"  PLEASE  WAIT.":GOSUB900    : rem  146 

30  S=0: PRINT" { CLR] f DOWN } ENTER  SEARCH "SPC( 
4)"PRESS":PRINT"ARGUMENT"SPC(8)"F-KEY 
{2  DOWN}"  :rem  225 

31  PRINT" [DOWN] ARTICLE  SUBJECT{3  SPACES) 1 
{DOWN} ": PRINT "ARTICLE  NAME"SPC(6 ) "3 
{DOWN}"  :rem  193 

32  PRINT"MAGAZINE  NAME"SPC{ 5 ) "5 "  :rem  136 

33  PRINT" {DOWN] TYPE  OF  COMPUTER! 2  SPACES] 
7" : PRINT" [DOWN] END  PROGRAM" SPC ( 7 ) "8" 

: rem  186 

40  GETX$  :rem  192 

41  IFX$="{F1}"THENS=3  : rem  104 

42  IFX$="{F3}"THENS=2  :rem  105 

43  IFX$="{F5}"THENS=1  :rem  106 

44  IFX$="{F7}"THENS=6  : rem  113 

45  IFXS="{F8}"THENPRINT"{CLR] {DOWN}  END  P 
ROG RAM": CLR: END  :rem  64 

46  IFS=0THEN40  :rem  76 
60  PRINT" { CLR} {DOWN]  ENTER  SUBJECT  OF 

{DOWN}" : PRINT"  SEARCH: {2  DOWN} ": INPUTS 
$  ;rem  109 

65  FORZ=1TON:IFA$(Z,S)=S$THENGOSUB300 

:rem  89 

70  NEXTZ  :rem  0 

75  PRINT" {CLR} {DOWN}  END  OF  DATA  OR{DOWN] 
": PRINT"  SUBJECT  NOT  FOUND{DOWN}" 

:rem  178 

76  PRINT"     (CHECK    SPELLING) {2    DOWN}" 

;rem  109 

77  GOSUB600:GOTO30  ;rem  90 

300  PRINT"{CLR]  SUBJECT  FOUND: {2  DOWN]"tP 
RINT"MAGAZINE:" :PRINTA$(Z, 1)  : rem  164 

301  PRINT" [DOWN] ARTICLE: " :PRINTA$(Z, 2) 

:rem  2  33 

302  PRINT" {DOWN} SUBJECT: ":PRINTA$(Z, 3) : PR 
INT "{DOWN} DATE: " : PRINTA$ ( Z, 4 ) : PRINT" 
{DOWN} PAGE  NO.:"  : rem  224 

303  PRINTA?(Z,5) : PRINT" { DOWN} COMPUTER: " :P 
RINTA$(Z,6)  .-rem  146 

305  GOSUB600: RETURN  ;rem  200 

600  PRINT" {DOWN}  (PRESS  RETURN}"   : rem  54 

601  GETY$:IFY$=""THEN601  : rem  129 

602  RETURN  :rem  120 

800  PRINT" {CLR} [DOWN}  RECORD  FORMAT! 
[DOWN}" : PRINT" 1)  MAGAZINE  NAME [DOWN}" 
: PRINT" 2)  ARTICLE  NAME {DOWN}"  :rem  95 

801  PRINT"3)  SUBJECT  OF  ARTICLE { DOWN} ": PR 


INT" 4)  MONTH. YEAR[ DOWN] " :PRINT"5)  PAG 
E  NO. {DOWN}"  srem  64 

802  PRINT"6)  COMPUTER  TYPE":PRINT" 

[2  DOWN]  SEPARATE  EACH  ENTRY { DOWN }": P 
RINT"  BY  A  COMMA [DOWN}"         : rem  26 

803  GOSUB600  :rem  177 

804  PRINT"{CLR] [DOWN]WHEN  PROMPTED  TO":PR 
INT" (DOWN} ENTER  SEARCH  ARGUMENT," 

:rem  48 

805  PRINT"PRESS  F-KEY  FOR" : PRINT" [ DOWN) DE 
SIRED  FUNCTION. {2  DOWN}"       : rem  16 

806  GOSUB600  :rem  180 

807  PRINT" {CLR} (DOWN)WHEN  PROMPTED  TO 
[DOWN}" :PRI NT "ENTER  SUBJECT  OF [DOWN]" 

:rem  164 

808  PRINT"SEARCH,  ENTER  NAME, { DOWN} ": PRIN 
T"THEN  PRESS  RETURN. (2  DOWN} " :GOSUB60 
0  :rem  118 

809  GOTO10  ;rem  59 

900  N=5:DIMA$(N,6) : FORR=1TON: F0RC=1T06 : RE 
ADA?(R,C) :NEXTC:NEXTR: RETURN  : rem  190 

901  DATA  GAZETTE, SPEEDSCRIPT, WORD  PROCESS 
ING, 1.84, 38, VIC/64  srem  212 

902  DATA  GAZETTE, CAVE-IN, GAME, 1.84,80, VIC 

:rem  183 

903  DATA  GAZETTE, ELECTRONIC  NOTEPAD, UTILI 
TY, 1.84, 112,64  :rem  150 

904  DATA  GAZETTE, HORIZONS  64, GENERAL, 1 . 84 
, 136, 64  :rem  90 

905  DATA  GAZETTE, MLX.M/L, 1.84, 171, VIC/64 

:rem  64 


(Article  on  page  52.) 

Program  1 :  64  version 

5  PRINT" [CLR] ":POKE214, 10 : PRINT: PRINTTAB ( 
1 3 ) " [ RVS  JTRENCH  FIRE" : F0RJ  =  1T0999 ; NEXT 

: rem  32 

10  P0KE5  3281, 11: POKES 3282, 12 : POKE53283,  13 

:Z=53270:POKEZ,PEEK(Z)OR16     srem  180 

20    POKE52, 56:POKE56, 56 : CLR: POKE56334 , PEEK 

( 56  334 )AND2 54 : POKE1 , PEEK ( 1 )AND251 

: rem    112 
30    IFPEEK( 14336) <>60THENFORI  =  0TOSU  :  POKEI 
+14336, PEEK(I+53248)sNEXT  : rem    194 

35    POKEI, PEEK(1)OR4:POKE53280,0:V=53248 

:rem    10 

40  POKE56334,PEEK(563  34)ORl: POKE53272, ( PE 

EK ( 53272 )AND240) +14 : POKE54296 , 0 : rem  59 

50  FORJ=0TO7:POKE14336+27*8+J, 173:POKE143 

36+29*8+J,85:READQ:POKE14848+J,Q 

: rem  241 
55  POKEI 4 336+28*8+J, 2 55: POKEI 4336+3 1*8+J, 
255-PEEK( 14336+46*8+J) :NEXT    : rem  239 
57  DATA255, 24  3 , 243 , 192, 243, 243 , 255 , 255 

: rem  142 

60  FORJ=0TO1 5 : READQ : POKE14856+J , Q : NEXT : DA 
TA254.254, 2  52,240,232,156,235,247 

: rem  23 1 

61  DATA127, 127,63, 15,23,57,215,  239 

: rem  191 

85  D=55296-1024:FORJ=1024TO1503:IFRND(1}> 

. 9THENPOKEJ, 31 : POKEJ+D, 8: J=J+1 : rem  193 

87  POKEJ, 28:POKEJ+D, 8 : NEXT: QS=" SCORE" 

: rem  41 

88  FORJ=1TO5:POKE1023+J,ASC(MID$(QS,J, 1 ) ) 
-64 : POKE102  3+J+D, 0:NEXTj  POKE1029 , 58 

: rem  195 
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89  FORJ=1029TO1035: POKEJ  +  D, 0 :NEXT :NS=3  :  GO  930  SYS53000  : rem  147 
SUB5000:SC=0:GOSUB5010         ;  rem  149  933  S=54272 : POKES+24 , 15 : POKES+5 , 1 : POKES+6 

90  FORJ=1TO10:READQ:POKEQ-47,64:NEXT  , 128: POKES+4, 1 29 : POKES+1 , 12   : rem  249 

:rem  20  980  A=0  : rem  79 

95  DATA1087,1090, 1165, 1212, 1251,1290, 1331  990  IFA> 11+LV*3THEN6000  : rem  49 

,1297,1371,1413  : rem  6  995  IF( PEEK( 56321 )AND16 )=0THENGOSUB6200 

110  F0RJ=1T016  :rem  59  :rem  28 

113  G=0  :rem  73  1000  F0RJ=1T06 : IFRND( 1 ) < ( 1-LV/20)ORX{ J ) <> 

115  IFJ>5THENIFJ/2=INT{J/2)THENF=F+40:G=4        0THEN1050  : rem  185 

0  : rem  25  1005  POKE2040+J, 13 :X{ J)=180: Y( J )=120 :A=A+ 

120  READC  :rem  242        1  : rem  22 

130  T=l+J  :rem  203  1010  M%{ J )=RND{ 1 ) * ( 5+LV/2) -2-LV/4: POKEV+3 

140  FORX=0TO18-T:M=1344+J*40+X:N=1344+J*4        9+J , INT ( RND( 1 ) *3+0 ) : R( J )=W   :rera  237 

0+39-X  :rem  148  1020  P0KEV+J*2,X( J) : P0KEV+1+J*2 , Y( J) : POKE 

150  Q=M:GOSUB500:Q=N:GOSUB500      : rem  37        V+21 , PEEK( V+21 )0R ( 2|J ) :GOTO1080 
160  NEXTX  :rem  46  : rem  31 

170  FORI=1364+J*40TO1444+J*40+FSTEP40  1050  NEXT  : rem  5 

;rem  90  1080  F0RJ=1T06 : IFX{ J)=0THENNEXT:GOTO1110 
180  Q=I-T-1:GOSUB500:Q=I+T:GOSUB500  : rem  14 

:rem  125  1085  IFY( J) <160URR{ J)=ETHEN1095    : rem  50 

L90  NEXT;I=I-40  : rem  L15  1090  P0KEV+29, PEEK (V+29 )0R( 2fJ) : POKEV+23 , 

200  F0RH=I-T-1  TOI+T  : rem  145        PEEK( V+23 )0R ( 2 f J ) : R( J ) =E:M% ( J ) =M% ( J ) 

210  Q=H:GOSUB500:Q=H-G:GOSUB500:NEXT:NEXT        *2  : rem  120 

:GOTO700  :rem  135  1092  FORN=S+7TOS+13 ; POKEN, 0: NEXT    :  rem  4 

300  DATA32, 27, 29, 32, 27,29,29,32,32, 27,27,  1093  POKES+24, 15 : POKES+12, 207 : POKES+13, 0: 

29,29,29,32,32  : rem  197        POKES+3, 10 : POKES+11 , 33       : rem  175 

500  IFQ<2024THENPOKEQ,C:POKEQ+D,8  : rem  36  1095  Y( J )=Y{ J) +R{ J) :X{ J)=X( J) +M% ( J) 

501  RETURN                       :rem  118  : rem  161 
700  IFPEEK{832)=33THEN800         : rem  163  1100  P0KEV+J*2,X{ J ) : P0KEV+1+J*2 , Y( J) 

705  FORJ=0TO2:FORI=0TO62:READQ:POKE832+J*  : rem  67 

64+I,Q:NEXT:NEXT  : rem  138  1104  IFY{ J ) < 222ANDPEEK( 2040+J )=13THEN1 107 

710  DATA33, 0,0, 64, 128,0, 140,64,0, 158,64,0  : rem  56 

,243,192,0,158,64,0,140,64,0   : rem  80  1105  X( J ) =0: POKEV+21 , PEEK{ V+21 )AND( 255-2T 
720  DATA64, 128,0, 33,0,0,0,0,0,0,0,0,0,0,0        J)  : rem  193 

,0,0,0,0,0,0  :rem  238  1106  POKEV+29, PEEK(V+29 ) AND{ 255-2fJ) : POKE 

730  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0        V+23,PEEK(V+23)AND(255-2tJ)  :rem  214 

,0,0,0,0  :rem  20  1107  NEXT  : rem  8 

735  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0  1110  IF{ PEEK (V+30 )AND1 ) <> 1THEN990 : rem  125 

,0,0,0,0  :rem  25  mi  POKEV+21 , 1 :  POKES+11, 0        :  rem  217 

740  DATA0, 8, 0,0, 8, 0,0, 28,0,0,28,0,  1,255,  1  1120  POKES  +  1 , 4 : FORI  =  1TO10 : POKES  +  24 , 15-ABS 

92,3,255,224,127,127,127      :  rem  135       { 6-1 ) : FORJ=0TO7 : POKEV+39, J    : rem  59 

750  DATA30, 62, 60, 3,99,96,1, 193, 192,0,0,0,  1130  FORH=1TO10:NEXT:NEXT:NEXT: POKES+24, 1 

0,0,0,0,0,0,0,0,0  :rem  21        5: POKES+1, 12  : rem  87 

770  DATA0, 128,0, 32, 32,0, 0,2,0, 10,128,2,40  1140  GOSUB5020: K=PEEK( V+30 ) :GOTO1000 

,2,0,152,130,128,96,128,130     : rem  8  : rem  93 

780  DATA128, 150,136,0, 1,215,64,215,64, 128  2000  J=0: READT: IFT<999THENSTOP    :  rem  156 

, 125, 10, 0, 20, 130,0, 0, 128, 96, 105,0  2002  READQ: IFQ>=0THENPOKEJ+T, Q: J=J+1 :GOTO 

:rem  67       2002  : rem  56 

785  DATA0, 128, 128,130, 128, 128,41,0,64,6,0  2004  IFQo-99  THENGOTO2000        : rem  233 

,64,10,2,128,128,8,2,0,8,0    : rem  248  2006  RETURN  : rem  168 

790  FORJ=15232TO15296:POKEJ,0:NEXT:FORJ=1  2020  DATA49172 , 206 , 0, 192, 173 , 0, 192 , 240 , 3 , 

5253T015273:READQ:POKEJ,Q:NEXT  76,100,192  : rem  247 

:rem  218  2030  DATA173 , 1 , 192 , 141 , 0, 192 , 162 , 1 , 254, 32 
792  DATA0, 112, 0,0, 136,0, 1,36, 0,1,  116,0,1,        ,208, 189,32,208,41,255,233, 253,48,9 

36,0,0,136,0,0,112,0  :rem  149  :  rem  202 

800  V=53248: POKEV+21, 0:POKE2040, 14: P0KEV+  2040  DATA222 , 32 , 208, 222 , 32 , 208, 222 , 32 , 208 

39, l:POKEV+28,0:POKEV+46,0    : rem  173  : rem  255 

805  POKE2047, 238 t POKEV+16,0: POKEV+23, 0:PO  2050  DATA232, 224, 4, 208, 230, 76, 100, 192 , -1 

KEV+2  9,0:FORJ=1TO6: POKE2040+J, 13  : rem  203 

: rem  81  2080  DATA49252 , 173 , 1 , 220, 41 , 4, 208 , 15 , 173, 
810  POKEV+39+J,INT(RND(l)*3)+5:NEXT  0,208  : rem  0 

: rem  46  2090  DATA233 , 105, 48, 8, 173 , 0 , 208, 233 , 4 , 141 
815  FORJ=5427  2TO54299:POKEJ,0: NEXT: rem  72        ,0,208  :  rem  44 

900  IFV053248THEN  STOP  :  rem  115  3000  DATA173 , 1 , 220, 41 , 8, 208 , 15 , 173 , 0, 208 

910  X=160:POKEV,X:POKEV+1, 200: POKEV+29, 1:  : rem  203 

POKEV+23, 1: POKEV+21, 1 : LV=1 : W=4 : E=8  3010  DATA23  3 , 218 , 16 , 8, 173,0,208,105,4,141 

:rem  42        ,0,208,76,49,234,-1  : rem  164 

920  POKE2047,238:IFPEEK{49172)<>206THENGO  3050  DATA53000, 120 , 169, 20, 141 , 20, 3, 169, 19 

SUB2000  :rem  41        2,141,21,3,88,96,-99         :  rem  232 

925  POKE49152,6:POKE49153,6:POKEV+46,0  5000  1FNS>6THENNS=6 : SC=SC+375 : GOSUB5010 

: rem  183  : rem  153 
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5001  FORJ=1062TO1065-NS*3STEP-3 : POKEJ, 65 : 
POKEJ+1 , 66 : POKEJ+D, 0 : POKEJ+1+D , 0 : NEX 
T  ;rem  245 

5002  RETURN  : rem  167 
5010  S$=STR$(SC) :FORJ=lTOLEN(S$) :POKE1029 

+J,ASC(MID?(S?,J,1)) :NEXT  : rem  177 
5013  O=INT(SC/1000) :IFO>PTHENP=0:NS=NS+l: 

GOSUB5000:GOSUB5050  :  rem  224 

5016  RETURN  : rem  172 

5020  FORI=1TO2:POKE1064-NS*3+I, 28:NEXT:NS 

=NS-1:IFNS>=0THENRETURN       : rem  87 

5030  PRINT" (CLR} {10  DOWN }[ 14  RIGHT }GAME  O 
VER"  :rem  194 

5031  POKE56334,PEEK(56334)AND254   :  rem  18 

5032  POKE788,49:POKE789,234        : rem  15 

5033  POKE563  34, PEEK { 56  334 )0R1 s P0KE198 , 0: P 
OKE53249,0:POKE54296,0       :  rem  122 

5034  FORI=1TO2000:NEXT:SYS2048     : rem  79 

5050  FORN=S+14TOS+20:POKEN,0:NEXT  : rem  46 

5051  POKES+24, 15:POKES+19, 61 :PQKES+15, 30: 
POKES+18,17:RETURN  :  rem  46 

6000  POKEV+21 , 1 :F0RJ=5T01STEP-1 : POKE49153 

,J:FORI=132-J*20TO142-J*20:POKES+1,I 

:rem  112 
6010  FORH=1TO40 : NEXT : NEXT : NEXT : SC=SC+LV*  7 

5:GOSUB5010;FORJ=1TO3000;NEXT:LV=LV+ 

1  : rem  43 

6020  FORJ=2TO6:POKE49153,J:FORI=142-J*20T 

O132-J*20STEP-1 : POKES+1 , I : FORH=1TO40 

:rem  168 
6030  NEXT:NEXT:NEXT:W=W+l:E=E+2  : rem  217 
6040  GOTO980  : rem  164 

6200  M%=(166-PEEK(V) ) /7 : POKEV+14, PEEK{V)+ 

12+M%:POKEV+15, 195:1=3  rrem  68 
6210  POKEV+21 , PEEK( V+21 )OR128 : FORJ=195T01 

30+LV*2STEP-3  s rem  225 

6220  POKEV+15,J:I=I+1:IFI=5THENI=0:POKEV+ 

14,PEEK(V+14)+M%  srem  152 

6230  K=PEEK(V+30) : IF( KAND128 )=0THENNEXT:G 

OTO6300  :rem  151 

6234  FORN=S+14TOS+20:POKEN,0;NEXT  : rem  51 

6235  POKES+24, 15 : POKES+19 , 14 : POKES+15 , 2 : P 
OKES+18,129  j rem  26 

6240  FORJ=lT06:IF(KAND(2tJ) )=0THENNEXT 

: rem  130 

6250  POKE2040+J,15:SC=SC+25:GOSUB5010 

;rem  126 

6300  POKEV+21 , PEEK (V+21 )AND127 : RETURN 

:rem  233 

Program  2:  vie  version 

(Use  only  with  short  MLX  version  and  8K  expander.) 


4352 
4358 
4364 
4370 
4376 
4382 
4388 
4394 
4400 
4406 
4412 
4418 
4424 
4430 
4436 
4442 
4448 
4454 


:169, 
:008, 
:162, 
:224, 
!  162, 
:224, 
:189, 
:232, 
:000, 
:151, 
:169, 
:064, 
;141, 
■.021, 
:145, 
:  189, 
;000, 
:201, 


147, 
141, 
000, 
242, 
000, 
022, 
162, 
224, 
189, 
232, 
000, 
141, 
020, 
003, 
076, 
242, 
240, 
008, 


032, 
015, 
157, 
208, 
157, 
208, 
017, 
242, 
148, 
224, 
141, 
046, 
003, 
169, 
170, 
150, 
009, 
203, 


210, 
144, 
242, 
248, 
228, 
248, 
157, 
208, 
018, 
022, 
060, 
145, 
169, 
192, 
018, 
041, 
168, 
002, 


255, 
169, 
030, 
169, 
031, 
162, 
242, 
245, 
157, 
208, 
003, 
169, 
017, 
141, 
162, 
015, 
200, 
169, 


169,214 
032,003 
232,067 
032, 117 
232,066 
000,126 
150,185 
162,075 
228,020 
245,112 
169,090 
141,004 
141,051 
046, 138 
000,143 
201,160 
152,097 
005, 183 


4460 
4466 
4472 
4478 
4484 
4490 
4496 
4502 
4508 
4514 
4520 
4526 
4532 
4538 
4544 
4550 
4556 
4562 
4568 
4574 
4580 
4586 
4592 
4598 
4604 
4610 
4616 
4622 
46  28 
4634 
4640 
4646 
4652 
4658 
4664 
4670 
4676 
4682 
4688 
4694 
4700 
4706 
4712 
4718 
4724 
4730 
4736 
4742 
4748 
4754 
4760 
4766 
4772 
4778 
4784 
4790 
4796 
4802 
4808 
4814 
4820 
4826 
4832 
4838 
4844 
4850 
4856 
4862 
4868 
4874 
4880 


157 

242 

150 

232 

224 

242, 

208 

230 

162 

000 

189 

228, 

151 

041 

015 

168 

200 

152, 

201 

008 

208 

002 

169 

005, 

157 

228 

151 

232 

224 

022, 

208 

234 

096 

238 

060 

003, 

172 

060 

003 

192 

010 

208, 

008 

032 

088 

017 

160 

000, 

141 

060 

003 

076 

191 

234, 

007 

007 

007 

007 

007 

007, 

007 

007 

007 

007 

000 

000, 

007 

007 

007 

007 

007 

007, 

007 

007 

007 

007 

006 

006, 

006 

006 

006 

006 

006 

006, 

006 

007 

000 

000 

007 

006, 

006 

006 

006 

006 

006 

006, 

006 

006 

005 

005 

005 

005, 

005 

005 

005 

005 

006 

007, 

007 

007 

007 

006 

005 

005, 

005 

005 

005 

005 

005 

005, 

007 

007 

007 

007 

007 

007 , 

007 

005 

006 

006 

006 

006, 

006 

006 

005 

007 

007 

007, 

007 

007 

007 

007 

006 

006, 

006 

006 

006 

006 

007 

005, 

006 

006 

006 

006 

006 

006, 

005 

007 

006 

006 

006 

006, 

006 

006 

006 

006 

006 

006, 

006 

006 

007 

005 

005 

005, 

005 

005 

005 

005 

005 

007, 

006 

006 

006 

006 

006 

006, 

005 

005 

005 

005 

005 

006, 

007 

005 

005 

005 

005 

005, 

005 

005 

005 

007 

006 

005, 

005 

005 

005 

005 

005 

005, 

005 

005 

005 

006 

007 

007, 

007 

007 

007 

007 

007 

007, 

007 

007 

006 

005 

005 

005, 

005 

005 

007 

007 

007 

007, 

005 

006 

007 

007 

007 

007, 

007 

007 

007 

007 

007 

007, 

006 

005 

007 

007 

007 

007, 

007 

007 

007 

007 

005 

006, 

006 

006 

006 

006 

006 

006, 

006 

006 

006 

006 

006 

005, 

007 

007 

007 

007 

006 

006, 

007 

007 

005 

006 

006 

006, 

006 

006 

006 

006 

006 

006, 

006 

006 

006 

005 

007 

007, 

006 

006 

006 

006 

007 

007, 

005 

005 

005 

005 

005 

005, 

005 

005 

005 

005 

005 

005, 

005 

005 

007 

007 

006 

006, 

169 

010 

141 

06  5 

003 

169, 

008 

141 

066 

003 

169 

014, 

141 

067 

003 

169 

004 

141, 

069 

003 

169 

002 

141 

070, 

003 

169 

008 

141 

071 

003, 

169 

015 

141 

014 

144 

169, 

170 

141 

013 

144 

169 

050, 

141 

128 

022 

162 

000 

169, 

037 

157 

000 

030 

232 

224, 

242 

208 

248 

162 

000 

189, 

000 

128 

157 

000 

028 

232, 

224 

000 

208 

245 

189 

000, 

129 

157 

000 

029 

232 

224, 

000 

208 

245 

189 

131 

023, 

157 

000 

029 

232 

224 

064, 

208 

245 

169 

255 

141 

005, 

144 

169 

000 

141 

072 

003, 

141 

073 

003 

032 

118 

019, 

,075 
,107 
,079 
,  207 
,  122 
,  209 
,021 
,  199 
,093 
,204 
,196 
,216 
,220 
,222 
,218 
,234 
,236 
,243 
,253 
,  252 
,014 
,014 
,022 
,030 
,032 
,038 
,044 
,050 
,054 
,058 
,068 
,069 
,076 
,083 
,086 
,097 
,110 
,  109 
,118 
,  125 
,134 
,137 
,143 
,146 
,151 
,162 
,165 
,170 
,177 
,184 
,182 
,  188 
,200 
,215 
,065 
,  195 
,130 
,077 
,084 
,125 
,066 
,130 
,249 
,007 
,078 
,245 
,020 
,192 
,003 
,027 
,146 
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4886 

4892 

4898 

4904 

4910 

4916 

4922 

4928 

4934 

4940 

4946 

4952 

4958 

4964 

4970 

4976 

4982 

4988 

4994 

5000 

5006 

5012 

5018 

5024 

5030 

5036 

5042 

5048 

5054 

5060 

5066 

5072 

5078 

5084 

5090 

5096 

5102 

5108 

5114 

5120 

5126 

5132 

5138 

5144 

5150 

5156 

5162 

5168 

5174 

5180 

5186 

5192 

5198 

5204 

5210 

5216 

5222 

5228 

5234 

5240 

5246 

5252 

5258 

5264 

5270 

5276 

5282 

5288 

5294 

5300 

5306 


162, 

000, 

030, 

232,: 

162, 

000, 

06  2, 

003, 

000, 

030, 

150, 

174,1 

015, 

208, 

079, 

023, 

004, 

157,1 

007, 

208, 

074, 

003, 1 

005, 

169,1 

170, 

169, 

169, 

232, 

003, 

141, 

141, 

078,f 

162, 

006, 

240, 

255, 

023, 

032, 

011, 

208, 

001, 

024, 

000, 

189, 

255, 

232, 

169, 

000, 

073, 

003, 

032, 

240, 

032, 

010, 

032, 

010, 

041, 

032, 

000, 

142, 

020, 

174, 

022, 

032, 

142, 

013, 

173, 

135, 

003, 

032, 

003, 

174, 

203, 

213, 

141, 

002, 

240, 

054, 

240, 

047, 

173 

119, 

006 

169, 

096 

201, 

050 

141, 

135 

208, 

128 

022, 

006 

,169, 

096 

,096, 

173 

,141, 

001 

,240, 

127 

,141, 

:145 

,  162, 

041 

,  128, 

:003 

,  169, 

232 

,224, 

:009 

,142, 

:020 

,  173, 

s208 

,021, 

:032 

,157, 

:255 

,208, 

:061 

,003, 

:135 

,003, 

:  173 

,017, 

:075 

,173, 

;010 

,141, 

:142 

,135, 

:024 

,105, 

[189 

,255, 

:030 

,201, 

:000 

,141, 

:021 

,  169, 

,169 

,224 

,  189 

,  170 

,  169 

,062 

,  231 

,  157 

,000 

,  240 

,032 

,005 

,033 

,141 

,076 

,003 

,160 

,162 

,210 

,245 

,032 

,110 

,224 

,141 

,  173 

,249 

,022 

,022 

,208 

,068 

,068 

,117 

,144 

,003 

,196 

,068 

,076 

,041 

,165 

,169 

,002 

,100 

,  134 

,128 

,006 

,096 

,010 

,  120 

,002 

,244 

,034 

,255 

,208 

,032 

,010 

,061 

,017 

,174 

,212 

,002 

,076 

,201 

,145 

,061 

,  133 

,003 

,008 

,022 

,032 

,  135 

,035 
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037, 

157, 

000, 

035 

242, 

208, 

248, 

188 

086, 

023, 

142, 

124 

169, 

046, 

157, 

135 

001, 

157, 

000, 

147 

003, 

232, 

224, 

129 

162, 

000, 

189, 

095 

000, 

030, 

169, 

010 

150, 

232, 

224, 

069 

169, 

003, 

141, 

076 

078, 

021, 

162, 

196 

141, 

061, 

003, 

216 

,157, 

212, 

031, 

098 

075, 

003, 

169, 

121 

,003, 

169, 

000, 

242 

,076, 

195, 

019, 

112 

,006, 

024, 

032, 

252 

,000, 

189, 

099, 

045 

,255, 

232, 

224, 

082 

,162, 

008, 

160, 

162 

,240, 

255, 

162, 

088 

,023, 

032, 

210, 

200 

,021, 

208, 

245, 

059 

,072, 

003, 

141 

174 

,017, 

145, 

041, 

106 

,032 

010, 

022 

245 

,032, 

010, 

022 

050 

,173 

017, 

145 

071 

,249 

096, 

162 

210 

,003 

032, 

065 

250 

,003 

032, 

025 

012 

,022 

162, 

170 

221 

,032, 

243, 

019, 

039 

,201 

000, 

240 

204 

,020 

238, 

068 

015 

,003 

224, 

003 

195 

,195 

019 

173 

098 

,001 

201 

001 

119 

,  198 

201 

000 

084 

,000 

133 

198 

019 

,201 

133 

208 

074 

,141 

128 

022 

066 

,208 

006 

169 

064 

,022 

096 

201 

150 

,  169 

025 

141 

202 

,201 

136 

208 

059 

,141 

128 

022 

006 

,032 

159 

255 

038 

,041 

001 

,201 

101 

,088 

,096 

,169 

,  130 

,145 

,173 

,032 

,206 

,  142 

,034 

,145 

,187 

,021 

,174 

,061 

,199 

,157 

,212 

,031 

,176 

,  144 

,002 

,162 

,096 

,003 

,076 

,221 

,096 

,145 

,041 

,016 

,002 

,061 

,003 

,169 

,232 

,031 

,202 

,224 

,204 

,  162 

,000 

,142 

,121 

,221 

,020 

,173 

,168 

,001 

,240 

,082 

,026 

,041 

,032 

,  208 

,242 

,003 

,010 

,010 

,220 

,003 

,162 

,001 

,088 

,174 

,133 

,003 

,234 

,141 

,134 

,003 

,065 

,170 

,189 

,242 

,211 

,240 

,008 

,169 

,086 

,003 

,076 

,109 

,132 

,157 

,242 

,030 

,072 
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5312  :  142, 132, 003,096, 174,132,103 
5  318  :003,169,032,157,242,030,063 
53  24  j 238, 133, 003, 174, 133, 003, 120 
5  330  :236, 134,003,144,209,162,074 
5  3  36  :000, 142, 135,003, 096, 139,013 
5342  : 2 12, 031, 201, 032, 208, 008, 146 
5  348  : 169,03  3, 157, 212,031,076, 138 
5354  : 131, 020, 206, 074,003,032, 188 
5  360  : 078, 021, 03 2, 210,022, 174,009 
5366  : 061, 003, 169,032, 157, 212,112 
5372  :  03 1,169,03  3,162,005,15  7,041 
5378  [212,031, 142,061,003, 173, 112 
5384  [065,003, 170,169,03  2, 157,092 
5390  [008,031,173,066,003, 170, 209 
5396  ;169,032, 157,008,031,173,078 
5402  [067,003,170,169,032,157, 112 
5408  [008,031, 169,010,141,065,200 
5414  [003,169,008,141,066,003,172 
5420  [169,014,141,067,003,169,095 
5426  [004,141,069,003,169,002,182 
5432  :141,070,003, 169,008,141,076 
5438  :071,003,173,074,003,201,075 
5444  [000,240,001,096,032,118,043 
5450  :019,076,022,019,162,007, 123 
5456  [169,037,236,074,003,240,071 
5462  [007,157,014,030,202,076,060 
5468  [082,021,224,000,240,010,157 
5474  [169,036,157,014,030,202, 194 
5480  [2  24,000, 208,248,096,032, 144 
5486  :243,021,142, 062 , 003 ,189, 002 
5492  [065,003, 170,169,038,157, 206 
5498  [008,031,160,2  55, 140,011,215 
5504  [144,03  2,241,022,136,192,127 
5510  [080,208,245,169,000,141,209 
5516  [011,144,032,13  2,022,174,143 
5522  [062,003,189,065,003,170,126 
55  28  [169,03  2, 157,008,031,174,211 
5  534  [062,003,165, 162,041,007,086 
5  540  [024,105,001, 157,069,003,011 
5  546  [024,105,005,157,065,003,017 
5552  [238,078,003,17  3,078,003,237 
5  558  :201,02  5,240,001,096,206, 183 
5564  [128,022, 169,000,141,078,214 
5570  [003,17  3, 128,022,201,007, 216 
5576  [208,003,238, 128, 022, 120, 151 
5  582  [169,2  34,141,149,017,141,033 
5588  [150,017,088,03  2,229,022,238 
5594  :032,010,022,032,010,022,090 
5600  :  032, 010, 022, 03 2, 235, 02 2, 06 5 
5606  [120,169,208,141,149,017,010 
5612  [169,008,141,150,017,088,041 
5618  [096, 138,0  56,2  33,022,205,  224 
5624  [065,003,208,003,162,000,177 
5630  [096,205,066,003,208,003,067 
5636  [162,001,096, 162,002,096,011 
5642  [ 162,000, 160,000,200, 192,212 
5648  [000 , 208, 251 , 232 , 224, 000, 163 
5654  [208,246,096,142,063,003,012 
5660  [189,06  5,003, 170 , 169 , 032 , 144 
5666  [157,008,031,174,063,003,214 
5672  [173,061,003,221,069,003,058 
5678  [176,009,2  22,065,003, 222,2  31 
5684  [069,003,076,063,02  2,2  54,02  7 
5690  [065,003, 254,069,003, 189, 129 
5696  [065,003,024,105,022,170, 197 
5702  [224,220,144,020,16  5,162,237 
5708  [041,007,174,063,003,024,132 
5714  [105,001,157,069,003,024, 185 
5  720  [105,005,170,076, 104,02  2,058 
57  26  [189,008,031,201,033, 208,252 
5732  [003,076,236,020, 169,034, 126 


5738 
5744 
5750 
5756 
5762 
5768 
5774 
5  780 
5786 
5792 
5798 
5804 
5810 
5816 
5822 
5828 
5834 
5840 
5846 
5852 
5858 
5864 
5870 
5876 
5882 
5888 
5894 
5900 
5906 
5912 
5918 
5924 
5930 
5936 
5942 
5948 
5954 
5960 
5966 
5972 
5978 
5984 
5990 
5996 
6002 
6008 
6014 
6020 
6026 
6032 
6038 
6044 
6050 
6056 
6062 
6068 
6074 


157 

,008 

031 

,138 

174 

063, 

003 

,157 

065 

003 

096 

162, 

000 

,160 

000 

200 

192 

000, 

208 

251 

232 

224 

030 

208, 

246 

096 

173 

072 

003 

024, 

105 

010 

141 

072 

003 

144, 

003 

238 

073 

003 

162 

000, 

160 

006 

024 

032 

240 

255, 

173 

073 

003 

174 

072 

003, 

032 

205 

221 

173 

072 

003, 

205 

075 

003 

208 

038 

173, 

073 

003 

205 

076 

003 

208, 

030 

173 

075 

003 

024 

105, 

232 

141 

075 

003 

173 

076, 

003 

105 

003 

141 

076 

003, 

173 

074 

003 

201 

007 

240, 

006 

238 

074 

003 

032 

078, 

021 

096 

162 

255 

142 

013, 

144 

032 

241 

022 

202 

224, 

030 

208 

24") 

169 

170 

141, 

013 

144 

096 

162 

220 

142, 

013 

144 

096 

162 

170 

142, 

013 

144 

096 

140 

077 

003, 

160 

000 

200 

192 

000 

208, 

251 

172 

077 

003 

096 

204, 

182 

161 

139 

118 

096 

075, 

054 

205 

183 

162 

140 

119, 

097 

076 

054 

206 

184 

163, 

141 

119 

098 

076 

054 

207, 

185 

16  3 

142 

120 

098 

076, 

054 

208 

186 

164 

142 

120, 

098 

076 

054 

209 

187 

16  5, 

143 

121 

099 

077 

055 

210, 

188 

166 

143 

121 

099 

077, 

055 

211 

189 

166 

144 

122, 

099 

077 

055 

212 

190 

167, 

145 

122 

100 

077 

055 

213, 

191 

168 

146 

123 

101 

078, 

055 

019 

003 

015 

018 

005, 

037 

048 

027 

048 

077 

099, 

118 

142 

167 

181 

197 

210, 

221 

234 

240 

159 

084 

082, 

069, 

078 

067, 

072 

070, 

073, 

082, 

069 

030, 

080 

082, 

069, 

083, 

083 

037, 

066 

085, 

084, 

084, 

079 

078, 

037 

084, 

079, 

037 

080 

076, 

065 

089, 

255, 

255, 

255 

255, 

255 

255 

255, 

255 

231 

231 

231 

195, 

066, 

066 

000 

126 

126 

126 

102, 

000 

000 

102 

126 

126 

255, 

255 

126 

126 

126 

126 

255, 

255 

024 

024 

024 

060 

189, 

189 

255 

129 

000 

000 

000, 

000 

000 

000 

000 

000 

126, 

165 

,219 

165 

165 

219 

,165, 

126 

,013 

013 

,013 

013 

,013, 

,165 
,086 
,  158 
,253 
,232 
,099 
,  109 
,097 
,140 
,098 
,  100 
,228 
,076 
,  116 
,009 
,  126 
,121 
,129 
,055 
,209 
,235 
,191 
,199 
,236 
,029 
,003 
,101 
,024 
,201 
,040 
,  136 
,057 
,235 
,074 
,173 
,092 
,010 
,111 
,  193 
,  164 
,081 
,092 
,019 
,008 
,040 
,049 
,216 
,  126 
,067 
,178 
,247 
,146 
,226 
,229 
,044 
,254 
,121 


Guess  America! 


(Article  on  page  64.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTER'S  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


40  DIME$(25) :REM  #  OF  LETTERS      :rem  88 
50  GOSUB  20000  -rem  215 

60  PRINT" {HOME} (6  RIGHT} {8  DOWN} GUESS  AME 
RICAl"  :rem  26 

70  FOR  X=1TO2000:NEXT  X  -rem  74 

80  PRINT" fCLR}"  :rem  204 

90  REM  WAGON  ACROSS  SCREEN"        :rem  118 
95  GOSUB20000  ;rem  2  24 

100  PRINT" (HOME}"  :rem  117 

110  FOR  X=24  TO  5  STEP  -1(2  SPACES} 

:rem  230 
120  PRINT" {9  DOWN} (24  RIGHT} "(27  SPACES] 

: rem  181 
130  PRINT  TAB(X)"{5  SPACES}UIII" 
(6  SPACES} 


140  PRINT  TAB(X)  "£B3I_II|<@3GH  H" 

[6  SPACES} 
150  PRINT  TAB(X)"  H  H  EY3QETgQ"; 


: rem  21 
:rem  251 


rem  174 
rem  243 
rem  198 


160  FOR  A=  1  TO  90: NEXT  A 

170  PRINT" {10  LEFT) [10  SPACES}" 

180  PRINT" {10  LEFT] (UP} {10  SPACES}"; 

:rem  88 
190  PRINT" {10  LEFT] (UP} {10  SPACES]" 

:rem  30 
200  FOR  A=l  TO  20: NEXT  A  : rem  231 

210  PRINT" (HOME}"  :rem  119 

220  NEXT  X  ;rem  43 

230  PRINT" £  10  DOWN} {5  RIGHT} {5  SPACES] 01 1 
I"  :rem  209 

235  PRINT"{5  RIGHT}  [?  B  3  .III.&  @  ^GH  H 

:rem  2  39 
240  PRINT" [5  RIGHT]  H  H  Iy^Q&T^Q" 

:  rem  132 

250  PRINT" {HOME} (7  DOWN} (4  RIGHT} CALIFORN 

IA'S  GOLD"  :rem  222 

260  FOR  X=1TO3000:NEXT  X  :rem  124 

1500  REM  -  GAME  DIRECTIONS        : rem  2  29 

1505  PRINT" [CLR]"  : rem  47 

1510  PRINT" (6  SPACESjG  U  E  S  S{3  SPACES] A 

M  E  R  I  C  A  1"  :rem  50 

1520  PRINT: PRINT  :rem  28 

1530  PRINT" {2  SPACES} THE  GAME  YOU  ARE  GOI 

NG  TO  PLAY  IS  "  :rem  83 

1540  PRINT" BASED  ON  THE  WORD  GAME  'JUMBLE 

' . (2  SPACES} YOU"  :rem  6 

1550  PRINT"WILL  HAVE  15  SECONDS  TO  UNSCRA 

MBLE  THE"  : rem  221 

1560  PRINT" JUMBLED  LETTERS  AND  ENTER  YOUR 

ANSWER. "  srem  97 

1570  PRINT: PRINT  jrem  33 

1580  PRINT" {2  SPACES} IF  YOU  ARE  CORRECT  Y 

OU  WILL  BE  GIVEN"  : rem  74 

1590  PRINT"10  POINTS. (2  SPACESjlF  YOU  ARE 

WRONG  CLUES  WILL"  : rem  177 

1600  PRINT"BE  GIVEN  BUT  YOU  WILL  RECEIVE 

(SPACE} FEWER"  : rem  52 

1610  PRINT"POINTS  FOR  A  CORRECT  ANSWER." 

:  rem  174 
1620  PRINTiPRINT  : rem  29 

1630  PRINT" (10  SPACES }0  CLUES  -  10  PTS." 

:rem  250 
1640  PRINT" {10  SPACESjl  CLUE{2  SPACES)- 

{2  SPACES] 7  PTS."  :rem  127 

1650  PRINT" [10  SPACES} 2  CLUES  -{2  SPACES] 

5  PTS. "  :rem  210 

1660  PRINT" {10  SPACES} 3  CLUES  -{2  SPACES] 

2  PTS."  :rem  209 

1670  PRINTiPRINT  :rem  34 

1680  PRINT" [10  SPACES} PRESS  '  C  TO  CONTIN 

UE"  :rem  198 
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1690 
1695 
1700 
1710 
1720 

1721 

1722 

1723 
1724 
1725 

1726 
1727 

1728 
1729 
1731 

1735 
1736 

1739 
1740 

1750 

1760 

1770 

1771 
1772 

1773 
1774 


GET  Z$:IF  Z$="  "THEN1690 

IF  Z$o"C"  THEN  1690 

PRINT" {CLR) " 

PRINT:PRINT 

PRINT" {2  SPACES] YOUR  TOTAL 

POINTS  AT  THE  END"; 
PRINT"OF  THE  GAME  WILL 

FAR" 
PRINT"ACROSS  THE 
{SPACE) WAGON" 
PRINT"WILL  TRAVEL." 
PRINT: PRINT 
PRINT"WILL  YOU  MAKE 
'S  GOLD?" 
PRINT: PRINT 
PRINTSPC{ 10) "PRESS  ' 

GET  Z$:IFZ?=""  THEN  1728 
IF  Z$<>"C"  THEN  1728 
PRINT  "{HOMEJtll  D0WN}[16 
{5  SPACES} ":FOR  A=1TO150: 


:rem  245 

:rem  226 

:  rem  44 

: rem  29 

NUMBER  OF 

:rem  49 

DETERMINE  HOW 

:rem  200 

UNITED  STATES  YOUR 

; rem  177 

:rem  210 

:rem  34 

IT  TO  CALIFORNIA 

:rem  234 

: rem  36 

C  TO  CONTINUE" 

:rem  96 

:rem  249 

:rem  226 

RIGHT  J 

:NEXT  A 

:rem  254 
GOSUB  20000  :rem  66 

PRINT" (HOME) {20  RIGHT} { DOWN} MAXIMUM 
[SPACEjSCORE:  50  "  : rem  67 

PRINT" {HOME} {17  DOWN]"  :  rem  217 
PRINT" {32  RIGHT} 10  PTS . " : FOR  X=1TO50 
0:NEXT  X  :rem  179 

PRINT"{UP] {21  RIGHT}20  PTS . " : FOR  X=l 
TO  500: NEXT  X  : rem  7 

PRINT" {UP} {12  RIGHT} 30  PTS.": FOR  X=l 
TO500:NEXT  X  :rem  4 

PRINT" {UP} [2  SPACES) 40  PTS.": FOR  X=l 
TO500;NEXT  X  : rem  170 

FOR  X=24  TO  5  STEP  -1  :rem  36 
PRINT" (HOME) {11  DOWN} {24  RIGHT}" 

:rem  40 
PRINT  TAB(X)"[5  SPACESjUIII"  : rem  83 


PRINT  TAB(X)  "gBgIHE@jGH  H" 
1775  PRINT  TAB(X}"  H  H  EY^Q&T§Q"; 


:  rem 


57 


1776  FOR  A=  1  TO  90:NEXT  A 

1777  PRINT" (10  LEFT} {10  SPACES) 

1778  PRINT" {10  LEFT) {UP} [10 


:rem  236 

j rem  49 

:  rem  4 


1780 
1781 
1782 
1783 

1784 

1785 

1790 
2900 

2903 

2905 

2906 


FOR  A=l  TO  20: NEXT  A 

PRINT" [HOME) " 

NEXT  X 

PRINT" [11  DOWN} {5  RIGHT} [5 

II" 

PRINT"{5    RIGHT)  EB^IIIgtaijGH 


SPACES}"; 

:rem  150 
1779  PRINT"{10  LEFT}[UP}{10  SPACES}" 

:rem  92 
:rem  37 
:rem  181 
:rem  105 
SPACES }UI 
:rem  32 
H 

:rem  41 
PRINT" {5  RIGHT}  H  H  §Y3qStEQ" 

: rem  195 
FOR  X=1TO1500:NEXT  X  : rem  184 
PRINT  "{CLR}[2  RIGHT} {2  DOWN} REMEMBE 

rem  100 
{ RVS }  RE 
rem  139 
ANSWER, 
rem  108 
{RVS) DE 


PRINT" {5  RIGHT} (6  DOWN} PRESS 
TURN(OFF)  AFTER  TYPING  IN" 
PRINT" {2  DOWN) {12  RIGHT} YOUR 


2910 
3000 
3001 


PRINT" [5  DOWN) [3  RIGHT} PRESS 
L[OFF}  KEY  TO  CORRECT  SPELLING." 

:rem  126 

FOR  X=1T0  2000: NEXT  X        : rem  175 

REM  INFORMATION  ; rem  237 

DATA  GUESS  : rem  101 


3005  DATAWORD, CLUE, CLUE  CLUE  : rem  241 
3010  DATA  FLORIDA, IN  THE  SOUTH, BOUGHT  FRO 
M  SPAIN  FOR  $5  MILLION  :rem  14 
3015  DATA  GROWS  CITRUS  FRUIT  : rem  217 
3020  DATA  LOUISIANA, GREATEST  LAND  DEAL  IN 
HISTORY, COST  515  MILLION  : rem  16 
3030  DATA  BOUGHT  FROM  FRANCE  IN  1803 

:rem  239 
3040  DATA  CALIFORNIA, GOLD  RUSH  -  1849, ON 
{SPACE} WEST  COAST,  MOVIE  CAPITAL  OF 
{SPACEjU.S.  :rem  25 

3050  DATA  ALAMO,  OLD  SPANISH  MISSION,  WAR 
WITH .MEXICO, REMEMBER  THE . . . s rem  140 
3060  DATA  JEFFERSON,  BOUGHT  LOUISIANA  TER 
RITORY, PRESIDENT  : rem  205 

3065  DATA  DECLARATION  OF  INDEPENDENCE 

:  rem  5 
3070  DATA  OREGON, TRAIL, IN  THE  NORTHWEST, F 
ROM  ENGLAND  IN  1846  BY  TREATY 

:rem  255 
3080  DATA  TEXAS,  LONE  STAR  REPUBLIC,  OIL 
[SPACEjCAPITAL  OF  U.S.,  DALLAS 

:rem  216 

3090  DATA  FRONTIER,  MOVED  WEST, PLACE  WHER 

E  SETTLEMENT  ENDS,  WILDERNESS  BEGINS 

:rem  88 
3100  DATA  ALASKA, EXTREME  NORTH, ESKIMOS  LI 
VE  HERE, BOUGHT  FROM  RUSSIA  IN  1867 

:rem  100 
3110  DATA  HAWAII,  HAD  A  MONARCHY,  TROPICA 
L  PACIFIC  PARADISE,  PEARL  HARBOR 

:rem  77 
3120  DATA  INDIANS, WARS  AGAINST  SETTLERS, A 
MERICAN  NATIVES, FOUGHT  WITH  ARROWS 

:rem  101 

3130  DATA  WASHINGTON, GENERAL, CITY  NAMED  A 

FTER  HIM, FIRST  PRESIDENT     : rem  137 

3140  DATA  JACKSON,  PRESIDENT, FOR  THE  COMM 

ON  MAN,  FROM  THE  WEST        : rem  226 

3150  DATA  PIONEER, 1ST  PERSON  INTO  AN  AREA 

,  MOVED  WEST,  FOUGHT  INDIANS : rem  155 

3160  DATA  GOLD, FOUND  AT  SUTTERS  MILL  - 

{2  SPACES } CA. , DISCOVERED  IN  1849,  PR 

ECIOUS  METAL  : rem  24 

3170  DATA  MISSISSIPPI, WESTERN  BORDER  OF  U 

.S.  IN  1783, BETWEEN  U.S.  AND  LOUISIA 

NA  : rem  9 

3180  DATA  RIVER  : rem  110 

3190  DATA  LINCOLN,  IN  NEBRASKA,  BORN  IN  L 

OG  CABIN,  PRESIDENT  DURING  CIVIL  WAR 

;rem  55 
3210  DATA  SLAVERY, NORTH  OPPOSED  IT, SOUTH 
{SPACE} FAVORED  IT, CIVIL  WAR  ENDED  IT 

:rem  97 

3230  DATA  KENNEDY,  20TH  CENTURY  PRESIDENT 

,  CUBAN  MISSILE  CRISIS,  ASSASSINATED 

:rem  2  5 
3240  DATA  PILGRIMS, EARLY  SETTLERS, IN  MASS 
ACHUSETTS, STARTED  THANKSGIVING 

: rem  228 

3260  DATA  COLUMBUS,  SAILED  FOR  SPAIN, THOU 

GUT  EARTH  WAS  ROUND, DISCOVERED  AMERI 

CA  :rem  203 

3270  DATA  RE VOLUTION, WAR, FOUGHT  AGAINST  E 

NGLAND.1776  : rem  13 

3280  DATA  CROCKETT, HERO  WHO  DIED  AT  THE  A 

LAMO.COONSKIN  CAP, DAVY        : rem  72 

3290  DATA  ROOSEVELT,  PRESIDENT  DURING  WOR 

LD  WAR  II,  RELATED  TO  TEDDY  : rem  156 

3295  DATA  MOST  TERMS  : rem  187 
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3300  DATA  GETTYSBURG, IN  CIVIL  WAR,BATTLEF 

IELD, LINCOLN'S  FAMOUS  ADDRESS 

;rem  230 
3310  DATA  STATES, U.S.  IS  MADE  UP  OF  THEM, 

POLITICAL  UNITS,  THERE  ARE  50 : rem  65 
3  320  DATA  AMENDMENT,  THERE  ARE  26  OF  THEM 

.ADDITIONS  TO  CONSTITUTION  : rem  67 
3  325  DATA  ERA  DIDN'T  MAKE  IT  :rem  20 
3330  DATA  FRANKLIN, COLONIAL  STATESMAN, I NV 

ENTOR, BENJAMIN  :rem  118 

3340  DATA  EISENHOWER,  FAMOUS  GENERAL, IN  W 

ORLD  WAR  II,  PRESIDENT  BEFORE  KENNED 

Y  -.rem  5  2 

3350  DATA  MORMONS, RELIGIOUS  GROUP, LED  BY 

{SPACE} BRIGHAM  YOUNG, SETTLED  IN  UTAH 

:rem  174 
3360  DATA  CARTER, 20TH  CENTURY  PRESIDENT, F 

ROM  GEORGIA, FAMOUS  FOR  PEANUTS: rem  5 
3365  DATA  BUFFALO, ANIMAL, HUNTED  BY  INDIAN 

S.HIDE  USED  FOR  TENTS  : rem  73 
3370  DATA  SCOTT, U.S.  GENERAL  IN  MEXICAN  W 

AR, CAPTURED  MEXICO  CITY, WINFIELD 

:rem  40 
3800  DATA  *,*,*,*  :rem  1.7 

3995  P=0  :rem  151 

3999  C=0  :rem  142 

4000  REM  RANDOM  GENERATION  OF  DATA  :rem  4 
4005  C=C+ltREM  WORD  COUNTER 
4010  DM=0 
4020  DM=DM+1 
4030  READ  A$,A?,A$,A$ 
4040  IF  A5<>"*"  THEN  4020 
4050  DM=DM-1 
4060  RESTORE 
4070  R=INT(RND{1)*DM)+1 
4080  FOR  T=1T0R-1 
4090  READ  AS,AS,A?,A$ 
4100  NEXT  T 

4110  READ  W?,C?(1),C$(2) ,C?(3) 
5000  REM  SCRAMBLED  WORD  ROUTINE 
5010  FL=0 

5020  L=LEN(W$) :S?="" 
5040  FOR  M=1T0L 
5050  E$(M}=MID$(W?,M,1) 
5060  NEXT  M 
5080  FOR  M=1T0L 
5090  R=INT{ (L-M+1)*RND(1)+1) 
5100  S$=S$+E?(R) 
5110  H$=E$(R) 
5120  E$[R)=ES{L-M+1) 
5130  E|(L-M+1)=H? 
5140  NEXTM 

5150  IFL=1  THEN  6000 
5160  IFS$<>  W$  THEN  6000 
5170  FL=FL+1 
5180  IFFL>=5  THEN  6000 
5190  GOTO5020 
6000  REM  INITIALIZE  SCREEN  VARIABLE 

{6  SPACES} LOCATION  :retn  251 

6010  SS$="{HOME}{4  RIGHT} {5  DOWN}": REM  SC 

RAMBLED  : rem  153 

6020  WW$="{HOME} {2  RIGHT} (7  DOWN}": REM  CO 

RRECT  WORD  : rem  75 

6030  CC$(l)="{HOME} {5  RIGHT} [11  DOWN}": RE 

M  CLUE  1  trem  77 

6040  CC$(2)="{HOME} {5  RIGHT} (13  DOWN}": RE 

M  CLUE  2  :rem  114 

6050  CC$( 3)=" (HOME} [5  RIGHT] [15  DOWN}": RE 

M  CLUE  3  :rem  151 

6060  REM  BEGIN  GAME  : rem  47 

6070  GOSUB  20000  :rem  63 


:rem  98 

6207 

rem  195 

rem  129 

6210 

rem  251 

6220 

rem  153 

6231 

rem  134 

6235 

rem  238 

:rem  19 

6240 

rem  200 

:  rem  1 

6245 

:rem  88 

rem  159 

6249 

rem  152 

rem  197 

6250 

:rem  45 

: rem  90 

6260 

rem  174 

:rem  87 

6261 

:rem  94 

6262 

rem  248 

6270 

:rem  40 

6280 

rem  124 

rem  237 

6290 

trem  78 

:rem  86 

7000 

:rem  9 

rem  188 

7005 

rem  138 

7010 

rem  148 

7020 

rem  207 

7030 

E 

7040 

6075  PRINT" (HOME} J  DOWN} [17  RIGHT} PLAYING 

(SPACE} FOR:  10  PTS.  trem  77 

6080  PRINTSS5SS  : rem  156 

6100  PRINT  WWS;  : rem  97 

6111  GOSUB  7000  ;rem  16 

6115  IF  LEFT$(X$,LEN(W$) }=W?  THEN  P  =  P4-10: 
REM  SCORE  ;rem  57 

6120  IFLEFT$<X$,LEN(W$) )=W$GOTO8000 : rem  4 
6125  PRINT" [HOME] {DOWN} [30  RIGHT}  7" 

:rem  96 
6130  PRINTCC$(1)CS(1)  : rem  108 

6140  PRINTWW?;  : rem  101 

6150  REM  INPUT  X$  : rem  188 

6151  GOSUB  7000  ;rem  20 
615  5  IF  LEFT?(X$,LEN(W?) )=W$  THEN  P=P+7 

:rem  121 
6160  IF  LEFTS (X$,LEN(W?) )=W$GOTO8000 

:rem  8 
6165  PRINT" [HOME} (DOWN} {30  RIGHT}  5" 

:rem  98 
6170  PRINTCC?(2)C?(2)  :rem  114 

6180  PRINTWW?;  : rem  105 

6191  GOSUB  7000  :rem  24 

6200  IF  LEFT$(X?,LEN{W$) )=W?  THEN  P=P+5 

:rem  110 
6205  IF  LEFT$(X$,LEN(W?))=W$  GOTO  8003 

:rem  8 
PRINT" (HOME} (DOWN} (30  RIGHT}  2" 

: rem  92 
PRINTCC?(3)C?(3)  :rem  111 

PRINTWW?;  :rem  100 

GOSUB  7000  trem  19 

IF  LEFT$(X?,LEN(W$) }=W?  THEN  P=P+2 

trem  115 
IF  LEFTS (X$,LEN{W5 ) )=W?  GOTO  8000 

:  rem  7 
FOR  X=1TO1000:NEXT  X         :rem  179 

PRINT" {HOME} {DOWN] [30  RIGHT]  0" 

trem  96 
PRINT"  (HOME}  [4  RIGHT]  [7  DOWN]"W?"  « 

*   ■*"  :rem  120 

PRINT" [HOME] {RIGHT} (20  DOWN} PRESS" 

trem  176 
PRINT" [RIGHT} 'C  TO"  trem  241 
PRINT" [RIGHT] CONTINUE"  : rem  35 
GET  Z? t IFZ$=""THEN  6270  trem  243 
IF  C=5  THEN  GOTO [2  SPACES) 9000 : REM  T 
O  END  .rem  221 

IF  C<5  THEN  4000 :REM  NEXT  QUES. 

trem  208 
REM  15  SEC.  TIME  DELAY  FOR  ANS. 

trem  175 
PRINTWW?  "?  ";  trem  233 

POKE204,0:REM  TURNS  CURSOR  ON: rem  30 
X$=""  :rem  198 

FOR  T=l  TO  1000  :REM  15  SEC. trem  100 
GET  R$:IFR?=CHR?(13)  THEN  7090 : REM  R 
ETURN  KEY  BEING  HIT  : rem  131 

7050  IF  R?=""THEN  7080: REM  NO  ANSWER  BEIN 
G  ENTERED  trem  71 

7055  IF  R$=CHR$(20)  THEN  7005     : rem  194 

7056  IF  R$=CHR${157)  THEN  7005    : rem  254 
7060  X?=X$+R?:REM  ACCUMULATES  INPUTS 

trem  219 
7070  PRINTR?; : REM  EACH  LETTER  AS  INPUT 

trem  47 
7080  NEXT  TtREM  TIME  COUNT  trem  56 
7090  POKE  204,1:REM  TURNS  OFF  CURSOR 

:rem  101 
7105  PRINT  "  "  :rem  158 
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7120 
8000 

8010 
8030 

8034 
8041 
8050 
8060 

8070 

8080 

8090 

8100 
8110 
8120 
8125 
8130 

9000 
9010 
9015 
9020 

9040 
9050 

9060 
9070 
9080 

9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 


RETURN  :rem  170 

REM  CORRECT  RESPONSE  SEQUENCE 

:rem  134 
GOSUB  20000  :rem  59 

PRINT" {HOME} {3  RIGHT} {3  DOWN} CORRECT 
"  :rem  75 

FOR  X=  5  TO  28  STEP  2  : rem  251 
PRINT  TAB (X) "CORRECT"  : rem  48 
NEXT  X  :rem  100 

PRINT" {HOME} (5  RIGHT} {12  DOWN} 
[5  SPACES }UIII_"  :rem  63 

PRINT" {5  RIGHT) EBJIIlE@jGH 
[ SHIFT-SPACE} H"  :rem  230 

PRINT"  {5  RIGHT}  H  H  gYijQETlQ" 

:rem  190 
PRINT" {HOME} {RIGHT} [20  DOWN} PRESS" 

:rem  179 
PRINT" {RIGHT} 'C  TO"  :rem  235 

PRINT" {RIGHT} CONTINUE"        jrem  29 
GET  ZS:IFZ$=""  THEN8120      :rem  235 
IF  Z?<>"C"  THEN  8120         : rem 
IF  C<5  THEN  4000: REM  NEXT  QUES. 

trem  203 
REM  GAME  ENDING  AND  SCORE  : rem  203 
GOSUB  20000  :rem  60 

F=F+1:REM  FLASHING  SCORE  : rem  218 
PRINT" {HOME} {2  DOWN} { 24  RIGHT}  "P"  P 
TS.  " 

FOR  X=l  TO  200:NEXT  X 
PRINT" {HOME) {2  DOWN }{ 24 
{10  SPACES}" 
FOR  X=1TO200:NEXT  X 
IF  F<5  THEN  GOTO  9015 
PRINT" {HOME} j 2  DOWN} { 24 
TS.  " 

P>=40  THEN  9640 

P>=30  THEN  9450 

P>=20  THEN  9280 

P<20  THEN  9130 
P<20 

STEP 


IF 

IF 

IF 

IF 

REM 

FOR  X=24  TO  23 

PRINT"{HOME}" 

PRINT" {9  DOWN} {24  RIGHT]" 

PRINT  TAB(X)"{5  SPACES }UIII" 

PRINT  TAB(X) 


-1 


:rem  66 
:rem  128 
RIGHT} 

:rem  140 
: rem  130 

:rem  77 
RIGHT}  "P"  P 

:rem  72 
:rem  146 
; rem  136 
: rem  137 

:rem  69 
:rem  159 

: rem  82 

:rem  179 

:rem  242 

rem  82 


EBJUllEgjGHH" 
9190    PRINT   TAB(X)"    H    H    iY3Q§TBQ" 


:  rem 


56 


9200  FOR  A=  1  TO  90: NEXT  A 

9210  PRINT" {10  LEFT] [10  SPACES}" 

9220  PRINT"(10  LEFT}{UP}{10 

9230  PRINT" [10  LEFT] {UP} (10 


9240  FOR  A=l  TO  20:NEXT  A 
9250  PRINT" {HOME}" 

9260  NEXT  X 

9261  PRINT" {HOME} " 

9262  PRINT" [9  DOWN} (24  RIGHT]" 

9263  PRINT  TAB(X)"{5  SPACESJUIII" 

9264  PRINT  TAB(X)  "  rJB3lII§@3GH  H" 


rem  235 
trem  39 
rem  250 
SPACES}"; 

:rem  140 
SPACES}" 

:rem  82 
:rem  36 
:rem  180 
trem  104 
:rem  182 
rem  245 
:rem  85 


rrem 


59 


9265  PRINT  TAB(X] 


H  H  gYaQET3Q" : 
DOWN} [13 


9270  PRINT" {HOME] {16 

ON  EAST  COAST. " 
9272  FOR  X=l  TO  5000: NEXT  X 
9275  GOTO  13000 
9280  REM  P=20-29 
9290  PRINT" {HOME] " 
9300  FOR  X=24  TO  16  STEP  -1 
158  COMPUTEI's  Gazette    March  1984 


:rem  238 

RIGHT] STUCK 

: rem  59 

:rem  186 

:  rem  4 

:rem  62 

jrem  184 

jrem  82 


9310  PRINT" {9  DOWN} {24  RIGHT}" 
9320  PRINT  TAB(X)"(5  S PACES JU111" 
9330  PRINT  TAB(X)"riBgIIlB@jGH~HTr 

9340  PRINT  TAB(X)"  H  H  iYgQgTJjQ"  ; 


rem  239 
:rem  79 

:rem  53 


rem  232 
jrem  45 
:rem  5 


93  50  FOR  A=  1  TO  90: NEXT  A         t 
9365  PRINT" [10  LEFT} { 10  SPACES}"; 
9370  PRINT" (10  LEFT} {UP) (10  SPACES]"; 

:rem 
9380  PRINT" {10  LEFT] {UP} (10  SPACES]" 

: rem  88 
9390  FOR  A=l  TO  20: NEXT  A  : 

9400  PRINT" [HOME] " 
9405  NEXT  X 

9410  PRINT" [HOME] " 

9411  PRINT" {9  DOWN} (24  RIGHT}" 

9412  PRINT  TAB(X)"{5  S PACES }U III" 
9413 


146 


trem  42 
:rem  177 
:rem  105 
:rem  178 
:rem  241 

:rem  81 


PRINT  TAB{X)"EB3IIIE@3GH  H" 
216   9414  PRINT  TAB(X)"  H  H  gY3GET3Q" ; 


:rem  55 


9420 

9430 
9440 
9445 
9446 
9450 
9451 
9455 
9460 
9470 


irem  2  34 
PRINT" (HOME) (15  DOWN} {8  RIGHT} ALMOST 


TO  THE  MISSISSIPPI. " 
FOR  X=1TO5000:NEXT  X 
GOTO  13000 
REM  30-39  PTS. 
PRINT" {HOME}" 
FOR  X  =24  TO  11  STEP  -1 
PRINT" [HOME] " 
PRINT" {9  DOWN} [24  RIGHT}" 
PRINT  TAB(X)"{5  SPACES)UIII 
PRINT  TAB (X )" E Bill lS<aiGH  H" 


9480  PRINT  TAB(X)"  H  H  Ey3Q&T§Q"  ; 


9490 
9500 
9510 

9520 

9530 
9540 
9550 
9560 
9570 
9580 
9590 

9600 

9610 

9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 


=1TO90:NEXT  A 


trem  121 
:rem  182 
:rem  254 
jrem  219 
:rem  187 
: rem  83 
:rem  183 
: rem  249 
'  jrem  84 

:rem  58 

:rem  237 
:rem  50 


'"{10  LEFT] {10  SPACES}"; : rem  252 
"'{IS 


FOR  A 
PRINT 
PRINT" { 10  LEFTStuP}(l0  SPACES} 

:rem 
PRINT" (10  LEFT} (UP] {10  SPACES}" 

jrem  84 
FOR  A=l  TO  20: NEXT  A 
PRINT" {HOME}" 
NEXT  X 

PRINT" [HOME]" 
PRINT"{9  DOWN]{24  RIGHT}" 
PRINT  TAB(X)"{5  SPACES)  UII_I"  J  rem  87 
PRINT  TAB(X)"EB3IIIE@3GH  H" 

:rem  61 
PRINT  TAB(X)"  H  H  EY3QET3Q"; 

jrem  231 
PRINT"[HOME} (15  DOWN}[3  RIGHTjMADE  I 


142 


jrem  38 
rem  182 
rem  106 
rem  184 
rem  247 


T  TO  THE  ROCKIES" 

FOR  X=1TO5000jNEXT  X 

GOTO  13000 

REM  40  OR  MORE 

FOR  X=24  TO  5  STEP  -1 

PRINT" [HOME}" 

PRINT" [9  DOWN] (24  RIGHT}" 

PRINT  TAB(X)"[5  SPACES }UIII" 

PRINT  TAB(X)"gBJIII§@gGH~irr 


9700  PRINT  TAB(X)"  H  H  £Y30Jt3Q"  ; 


jrem  82 
:rem  183 

rem  255 
:rem  239 

:rem  40 
:rem  185 
:rem  248 

trem  88 

:rem  62 

:rem  232 

;rem  45 
irem  0 


9710  FOR  A=  1  TO  90  J  NEXT  A 

9720  PRINT" {10  LEFT] {10  SPACES]" 

9730  PRINT" (10  LEFT} [UP] {10  SPACES}"; 

:rem  146 
9740  PRINT" {10  LEFT] {UP} (10  SPACES]" 

:rem  88 


9750 
9760 
9770 
9780 
9790 
9800 
9810 
9820 

9825 

9830 

9840 
9850 
13000 


FOR  A=l  TO  20; NEXT  A  :rem  42 

PRINT" £  HOME] "  :rem  186 

NEXT  X  :rem  110 

PRINT" {HOME}"  :rem  188 

PRINT" {9  DOWN] {24  RIGHT?"  :  rem  251 
PRINT  TAB(X)"{5  SPACES }UIII"  :rem  82 
PRINT  TAB(X)"EBaiIlEi3|GH  H"  j  rem  56 
PRINT  TAB(X)"  H  H  &Y3QET3Q"; 

: rem  235 
[HOME}{6  DOWN}(4  RIGHTjHOORAY! 

:rem  236 

RIGHT] CALIFO 

:rem  17 

irern  187 

:  rem  3 


PRINT 

11!" 

PRINT" [HOME] {16  DOWN] (3 

RNIA  AND  GOLD1" 

FOR  X=1TO5000:NEXT  X 

GOTO  13000 


PRINT" [CLR] {2  DOWN) DO  YOU  WANT  TO  P 
LAY  AGAIN?"  :retn  188 

13010  PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

:rem  101 
13020  PRINT" {11  RIGHTjTYPE 

PLAY" : PRINT: PRINT 
13025  PRINT" {11  RIGHTjTYPE 
QUIT" 
GET  Z$iIF  Z$=""  THEN 
IF  Z$="P"  THEN  2900 
IF  Z$<>     "P"  AND  Z$  <> 


13030 
13040 
13060 


{RVS]P{OFFj  TO 

:rem  163 

(rvs)q£off)  TO 

:rem  40 

13030   irem  67 

:rem  208 

"Q"  THEN  1303 


14500 
14510 
14520 

14530 

14540 
14550 
14999 

19999 
20000 
20010 
20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 

20190 

20200 

20210 


0 

REM  BYE  I 
GOSUB  20000 
PRINT"{HOME] [5 


DOWN] {4 

RIGHT] SEE 


:rem  155 
:rem  223 
:rem  109 
RIGHT] BYE1 
:rem  136 
YOU  IN  C 
:rem  1 
:rem  228 
:rem  89 
:rem  231 
rrem  231 
:rem  86 
rem  187 


PRINT" (5  DOWN] {4 

ALIFORNIA1" 

FOR  X=1TO5000:NEXT  X 

PRINT"{HOME} (22  DOWN] 

END 

REM  MAP  SUBROUTINE 

PRINT" [CLR]" 

PRINT  SPC(2)"ZZ2" 

PRINT  SPC  {  3  )  ""Z^SPC  (  1  )  "  ZZZZZZ  "  SPC  (25 

)"ZZ"  Trem  103 

PRINT  SPC(2)"Z"SPC(8)"ZZZZZZZZZZ"SP 

C{14)"Z"SPC(lT"Z"  :rem  128 

PRINT  SPC(2)"Z"SPC(18)"ZZ"SPC(12)"Z 

"SPC(2)"Z"  —   :rem  225 

PRINT  SPC( 2 ) "Z"SPC{19 ) "ZZZZ"SPC( 7 ) " 

zz"spc(2)"z"  trem  69 

PRINT  SPC ( 1 ) " Z " SPC ( 23 ) " Z "SPC{ 1 ) " Z " S 
PC(5}"Z"SPC(2T"Z"  :rem~92 

PRINT  SPC(1)"Z"SPC(22) "Z"SPC( 1 ) "Z"S 
PC ( 1 ) " Z " SPC ( 2j" ZZ" SPC ( 3T" Z " : rem  186 
PRINT  SPC(1)"Z"SPC(22) "Z"SPC( 1 ) "Z"S 
PC ( 1 ) "Z  " SPC ( IT" ZZ " SPC ( 47" Z " : rem  187 
PRINT  SPC{1}"Z"SPC(23)"Z"SPC(2}"ZZZ 
"SPC{4)"Z" 
PRINT  SPC(1)"Z"SPC(32)"Z" 


:rem 
:rem 
:rem 
trem 
:rem 
:rem 
.'  rem 
1  rem 
irem 


140 
192 
193 
194 
195 
196 
197 
128 
206 


PRINT  SPC(1)"Z"SPC(32)"Z" 
PRINT  SPC(1)"_Z"SPC(32)"_Z" 
PRINT  SPC(1)"£"SPC(32)"Z" 
PRINT  SPC(2)"Z"SFC(31)"Z" 
PRINT  SPC{3)"Z"SPC(30)"Z" 
PRINT  SPC(3)"ZZZ"SPC(277"Z" 
PRINT  SPC(6)"ZlrSPC(25)  "Z" 
PRINT  SPC(  7)  "ZZZ"SPC(  1  )7rZ"SPC(  19)  "Z 

:rem  13 
PRINT  SPC(10)"Z"SPC(1)"^"SPC(13)"ZZ 
ZZ"SPC(1)"Z"  :rem  146 

PRINT  SPC{ 13 ) "Z"SPC(7} "ZZZ"SPC( 1 ) "Z 
"SPC(4)"Z"SPC(1)"Z"  .-rem  15 
PRINT  SPC(14)"ZZZlrSPC(3)  "Z"SPC(3 )  "Z 
"SPC(6)"Z"SPC(1)"Z"  :rem  17 


20220  PRINT  SPC( 17 ) "Z"SPC( 1 ) "Z"SPC( 11 ) "Z" 

SPC(1}"Z"  :rem  3 

20230  PRINT  SPC(18)"j!"SPC(13)"ZZ":rem  213 

20500  RETURN  : rem  215 

Sea  Route  To  India 

(Article  on  page  66.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTEl's  Gazette  Programs,"  "A 

Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


70  DIM  M%(7) ,M$(6) :X=RND(-TI)      : rem  45 

71  FG=1.6:KB=151:HP=72:PRINT"{CLR}":IF  PE 
EK(1024)=32THENKB=197:HP=29     : rem  52 

72  M$(0)="" :M${l)="STOPPED  AT  CANARY  ISLA 
NDS" ;M?(5)="SIGHTED  CALCUTTA"   : rem  21 

73  DH$="{2  SPACES) BL3{ DOWN] {3  LEFT] 
|*StRVSjl3  SPACES)  ^*HDOWN] 

{4  LEFT} {4  SPACES} {DOWN} {4  LEFT} 
{4  SPACES} {DOWN} {5  LEFT] { RVS }£ 
£3  SPACES] {OFF}£{ DOWN] [3  LEFT7r?L3 
{DOWN]  {4  LEFTj^HRVS}  [6  SPACES] 
[OFF]£"  ;rem  122 

M${2)="CAPE  VERDE  ISLANDS" :M$ ( 3 )  =  " ROUN 
DED  CAPE  OF  GOOD  HOPE"  : rem  65 

M$( 4)=" PICKED  UP  INDIAN  PILOT" : rem  116 
YS$="  -(DOWN} (LEFT) ( RVS }+( DOWN} {LEFT} 
{OFF}-TdOWN}  {2  LEFT]  E*>|£  RVS }  (OFF}£ 

" :hs$="{red}  -{down] {left}{rvs}z{off} 
(down)  (left)-Tdown}  (2  LEFT]g*HRVS} 
(SPACE} [OFF]£"  :rem  108 

MS$  =  "{ RIGHT P+CHR? ( 20)  +  " £  DOWN} " :MS?  =  MS 
$+MS$:MS?=MS?+MS$  : rem  12 

WH$(l)="NO  WIND  AT  ALL" :WHS ( 2 )="VERY  C 
ALM":WH${3)  =  "FAIR  WINDS"  :rern  120 
WH$(4)="GOOD  WINDS" :WH$ ( 5 )="GOOD  WINDS 
":WH$(6)="STRONG  WINDS"  :rem  2  50 
M%(l)=50sM%(2)=100:M%(3)=150:M%(4)=200 
:M%(5)=250:M%(6)=300:M%(7)=50  :rem  225 
GOSUB16000  :rem  224 

DT$="(2  LEFT] . {DOWN) (LEFT) . {2  LEFT). 
{2  LEFT] . [DOWN] (LEFT] . {DOWN) {LEFT} . 
{DOWN} {LEFT] . {DOWN} {LEFT} . [2  LEFT} . 
{DOWN) [LEFT) . {DOWN} {LEFT} . {DOWN) (LEFT) 
.  (DOWN) (OFF)  .{RVS)  (OFF}  . £  DOWN} {OFF] . 
{RVS} {OFF} . [RVS] {OFF} . [DOWN) {LEFT] . 
{DOWN} {LEFT) . {DOWN} {LEFT] . (DOWN) (LEFT) 
.{DOWN} [LEFT}."  : rem  139 

92  DT?=DT$+"(DOWN) [LEFT] . [DOWN} (LEFT) . 
{DOWN) {OFF} . (DOWN} (OFF) . {RVS} [OFF] . 
{RVS}- {OFF}  .  {RVS}  {OFF}  .  {UP]  [LEFT}  .  {UP} 
{OFF} . {UP} {OFF) . {UP) [LEFT} . {UP) {OFF} . 
{UP] (LEFT) . {UP) (LEFT] . {UP} [LEFT] . {UP} 
{OFF} . (UP} {OFF) . {RVS} {OFF} . £RVS5 [OFF] , 


74 

76 
77 


78 

80 

82 

84 

90 
91 


93 

104 
105 


106 
107 


{RVS} £OFF) 

DT$=DTS+"(RVS) {OFF} . (UP} [OFF) 

{LEFT} . " 

DEF  FNR(X}=INT{RND(1)*X+1) 

F$="£2  SHIFT-SPACE) < . £2  @iV 

[13  SHIFT-SPACE} ( .  £2  I§N 

(34  SHIFT-SPACE}" 

F?=F$  +  "{28    SfJIFT-SPACE)  " 

F$=F$+"<.§2    +3y[40    SHIFT-SPACE} ( , 

12    +^N(15    SHIFT-SPACE}"  : rem    114 
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:rem  54 
{UP} 

:rem  15 
:rem  176 


:rem  17 
rem  151 


108  F?=F$+"[28  SHIFT-SPACE}"      :rem  153 

110  D?=" (HOME) [32  DOWN}"  :rem  174 

120  S§="{3  SPACESjgMl{2 
[DOWN) {S  LEFT}g3  +1 
[6  LEFT] | 3  £^  E2  £31 
[6  LEFT}§3  +i  §2  +l\ 
lG%    &Mi  (DOWN)  [6  LEFT}E*nRVS} 
[SPACEjZZZ  (OFF}£"  srem  135 

122  SS$="(3  SPACES] gMEf 2  SPACES} ^Mg 
[DOWN] [5  LEFT}|3  +  3  12    +3 { DOWN} 


.•rem 
:rem 
SPACES }£M3 
12    +3 (DOWN] 

; down J 

DOWN} (4  LEFT} 


125 
130 
500 

510 

520 
530 
550 

555 
560 

790 

800 

1000 

1002 

1005 

1006 

1007 
1008 

1010 


1020 

1030 

1040 
1050 
1055 
1058 


1060 


1070 
1100 


1110 


1150 

1155 

1157 

1159 
1200 

1210 


(6  LEFT)&3  £i  12 

(6  LEFT)g3  +3  %2 

lQ%    IJMi  (DOWN}  [6 

[5  SPACES} (OFF}£ 

GOSUB 15000 

GOTO 500 

ML=8: GOSUB10000 : F0RWK=1T052 

FORI =1TO10;GETA$: NEXT 


1% {DOWN} 

+3EDOWN] [4  LEFT} 
LEFT}E*ifRVS} 

srem  44 

: rem  14 

: rem  98 

Z=FRE(0) : 

:rem  140 


GOSUB14000: POKE53281, 3 : REMWEATHER, MIL 
ES  :rem  170 

GOSUB10000:REM  LOG  : rem  8 

GOSUBU000:REM  SITUATION      :  rem  232 
X=FNR ( GG )  ! IFGG=6THENX=2*  FNR ( 4 ) - 1 

: rem  167 
IFML<1200ANDX=4THENX=1  : rem  87 
ONXGOSUD1000, 2000, 1000, 4000, 5000, 6000 
,6000  :rem  113 

FD=FD-i s  SP=SP-1 sWT=WT-l : IFWK>  30THENCH 


=CH-1 
NEXTWK 

REM    CATCH   WHALE    ROUTINE 

DZ=17+INT(8*RND( 1) ) 

PRINT" [CLR}WHALES  SIGHTED" 

PRINT" [DOWN} TRY  YOUR  LUCK? 


rem  129 
rem  121 
rem  .159 
srem  53 
rem  246 
OR  N" 

:rem  173 
A$="" sGETA$sIFA$="N"THEN  1155: rem  37 
IFA?<>"Y"THEN1007  : rem  203 

PRINT" { CLR] [DOWN} {11  S PACES }W{ DOWN] 
{LEFT}  &  +  ^(  DOWN}  {3  LEFT}  E  +  3  V" 

:rem  227 
PRINT" {8  SPACES}|*! {RVS}{3  SPACES} 
{OFF}£"  :rem  192 

PRINT" g5|JK[ SHIFT-SPACE} JKJKJKJKKJ 
KJKJKJKJKJKJK[BLK}"  :rem  36 

PRINT" [HOME] PRESS  hIoFF}  "  : rem  16 
GOSUB1200  :rem  9 

IFPEEK(KB)OHPTHEN1050  :  rem  100 
DC=0 : PRINTLEFT$ ( D? , 3 ) TAB (13)"  [ DOWN] 
( LEFT }-{ DOWN} { LEFT} V[ DOWN} {LEFT}"; 

:rem  56 
DC=DC+1 sGOSUB1200: PRINTLEFT? ( D$, 3+DC 
)TAB(13)"  {DOWN} ( LEFT) -{DOWN} {LEFTjV 
[DOWN]  {LEFT}";  :GOTO1070~  : rem  78 
IFDCODZ-6THEN1060  s  rem  79 

B$="*" :OPEN3, 3 : INPUT#3 , B?  sCLOSE3 : IFL 
EFT?(B?, 1)<>" (SHIFT-SPACE} "THEN1150 

srem  230 
PRINTLEFT? {D?, 3+DC ) TAB ( 13) "  (DOWN] 
{LEFT} -{DOWN]  [  LEFT }V{ LEFT}  {UP} 
{D0WN}TlEFT)-[D0WN] {LEFTjV  (2  UP)MIS 
SED" ; :GOT01155  : rem  2  30 

PRINT" [7  UP} GOOD  SHOT" sFD=FD+2 

;rem  2  22 
PRINTLEFT$(D$,23)  "{4  UP} PRESS  {RED} 
RETURNfBLK}"  :rem  147 

A$="" sGETA?sIFA$<>CHR?(13)THEN1157 

■.rem  142 
RETURN  :rem  176 

PRINTLEFT?{D?,DZ)LEFT?{F?, 39) 

:rem  196 
F?=MID?<F?,2)+LEFT?(F?, 1)     t rem  20 


1245  REM (4  SPACES} A?=" " :GETA$ : IFA?<> "L"TH 
EN1245  :rem  72 

1250  RETURN  :rem  168 

2000  REMFOREIGN  SHIPS  : rem  55 

2010  PRINT" (CLR} {RED} "TAB(25)S?  : rem  73 
2020  PRINT" {BLK] SHIP  SIGHTED"  srem  97 
2030  PRINT" {RVS}A{OFF}PPROACH  OR  {RVS}F 

(OFF}LEE"  :rem  233 

2040  A$="" sGETA?s IFA? <> "A"ANDA?<> "F"THEN2 

040  :rem  137 

2050  IFA$="A"ANDRNDt l)> . 2THEN3000  ! rem  70 

2060  ES= . 5 : IFA$  = " F"THENES= . 8 : GOT02 100 

:rem  149 

2070  PRINT" {DOWN} IT'S  A  PIRATE  SHIP1" sPRI 

NT"{DOWN}YOU  TURN  AND  FLEE"  :rem  110 

2100  REMFLEE  ROUTINE  : rem  233 

2110  IFRND{ 1)>ESTHENPRINT"(2  DOWNjALAS.": 

PRINT" [DOWN} THEY  CATCH  AND  SINK  YOU" 

:GOTO17000  srem  41 

2199  GOTO3140  :rem  214 

3000  FL=0:REM  RACE  : rem  251 

3001  PRINT" (CLR} ITS  CAPTAIN  CHALLENGES  YO 
U  TO  A  RACE{DOWN} " : IFRND( 1 ) > . 5THEN30 
03  :rem  192 

3002  PRINT"3  PIECES  OF  HIS  GOLD  FOR  3 

{2  SPACES) BARRELS  OF (2  SPACES) YOUR  S 
UPPL1ES. " :GOTO3005  :rem  8 

3003  FL=1:PRINT"3  BARRELS  OF  HIS  SUPPLIES 

AGAINST"  :rem  4 

3004  PRINT"3  PIECES  OF  YOUR  GOLD." 

:rem  188 

3005  PRINT" {DOWN} DO  YOU  ACCEPT?  {RVSjY 
(OFF)  OR  {RVS}N(OFF}?"       :rem  248 

3006  A?=""sGETA?sIFA?="Y"THEN3017  srem  48 

3007  MS?  =  " {RIGHT) "+CHR? ( 20 ) +" {DOWN} " :MS?  = 
MS?+MS?:MS?=MS$+MS?  :rem  103 

3008  IFA?="N"THENRETURN  : rem  157 

3009  GOTO3006  : rem  206 

3010  YS?="!bLK}  z{down) (LEFT) (RVS}+{ DOWN] 
(LEFT} ( OFF }z{ DOWN] {2  LEFT] g*^TRVS3 

{OFF]£"sHS?="[RED]  -(DOWN} {LEFT} 
[RVSjzTOFF) [DOWN] [LEFT] -{DOWN} 
{2  LEFT}B*3(RVS}  {OFF}£"   :rem  82 
MS$=" {RIGHT} "+CHR$(20)+"[DOWN}" sMS?  = 
MS?+MS?:MS?=MS?+MS$  srem  104 

PRINT" (CLR) {BLK}";  : rem  247 

PRINTTAB ( 36 ) YS$  J  PRINT" { 2  DOWN } " TAB ( 3 
6)HS?  :rem  52 

FORT=1TO1000;NEXT  :rem  80 

YX=INT( RND( 1 ) *10 ) +25 ; HX=INT( RND( 1 ) *9 
)+2  5sIFHX=YXTHENYX=YX+l  :rem  171 
MX=YX : W$="YOUR" : IFYX<HXTHENMX=HX  sW?  = 


3017 

3050 
3060 

3070 
3075 

3080 

3090 
3092 
3093 
3095 
3096 
3100 
3110 

3120 

3130 

3140 

3145 

3150 
4000 


"HIS"  :rem  4 

FORJ=lTOMX  srem  179 

IFYX<JTHEN3095  : rem  148 

PRINT" (HOME) "MS $  : rem  119 

IFHX<JTHEN3100  : rem  121 

PRINT"[HOME] {6  DOWN] "MS?     : rem  224 
NEXT J  srem  77 

PRINT" {BLK} {HOME] (15  DOWN}"W$"  SHIP 
(SPACE)WINS"  :rem  108 

IFMX=YXTHENGP=GP- ( FL=0 ) *3 : SP=SP+3*FL 
:  CH=CH+2  =rem  29 

IFMX=HXTHENGP=GP-FL*  3 : SP  =  SP+3* ( FL=0 ) 
:  CH=CH-2  srem  15 

PRINTLEFT? (D?, 23)  "PRESS  (RED) RETURN 
[BLK] "  srem  75 

A?  = " " : GETA? : IFA?  <  >  CHR? ( 13 ) THEN3 145 

:rem  140 
RETURN  srem  169 

REMRIVER  srem  48 
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4010 
4020 


4025 

4030 

4040 
4050 

4060 
4070 

4075 

4080 


4082 

4083 

4085 
4090 
4100 

4110 
4300 


4302 


4305 


4310 

4320 

4330 
4340 
4350 

4500 

4505 
4510 
4800 
4810 

4820 

4840 
5000 
5010 
5015 
5020 
5025 


IFRND(1)>.7THEN  RETURN       s rem  108 
PRINT" {CLR}YOU  SPY  A  RIVER. ": PRINT" 
{DOWN} WILL  YOU  GO  ASHORE  FOR  FOOD  AN 
D  WATER?"  :rem  103 

PRINT" (DOWN} [RVS}Y[OFF]  OR  (RVS}N 
{OFF} "  srem  61 

A$  =  " " : GETA? ! IFA$  <> " Y" ANDA?  < > " N"THEN4 
030  :rem  171 

IFA?="N"THEN  CH=CH-2 : RETURN  :rem  134 
PRINT" [2  DOWN] YOU  LAND  AND  REPLENISH 
.  "  : rem  131 

IFRND{1)>.5THEN4800  : rem  91 

PRINTLEFT?{D?,23)  "PRESS  { RED} RETURN 
{BLK}"  srem  78 

A$="" sGETA$sIFA?<>CHR?(13)THEN4075 

: rem  146 
PRINT" {CLRJnATIVES  APPEAR[3  SPACES}0 
{3  SPACES }0{ DOWN] {6  LEFT] J{ RVS] [ RED] 

{BLK][OFF]K  £zsj{rvs}  {grnT  {off] 
[BLK] §X|{ DOWN) (6  LEFT]V{3  SPACES )V 
"  :rera  108 

PRINT" [DOWN] {RVS]A[OFF]PPROACH  OR 
[RVSjF(0FF]LEE7"  srem  66 

A?  =  ""  sGETA$:IFA$o"A"ANDA?<>"F"THEN4 
083  : rem  155 

IFA?="F"THEN4800  : rem  135 

IFRND(1)>. 5THEN4300  :rem  89 

PRINT" {3  DOWN} THE  NATIVES  TRADE  GOLD 

FOR  YOUR  TRINKETS"  : rem  4 

GP=GP+10sCH=CH+lsGOTO4800  : rem  229 
PRINT"(CLR) {2  SPACES}0[3  SPACESjO 

[DOWN} [6  left}j[rvs} (yel}  [blk}{off] 

KTSzitRVS] {REDT  {OFF} {BLKj^Xi 
TdOWN}{6  LEFTjV  -  V";         : rem  138 
PRINT"{2  UP] {5  SPACES}0{3  SPACESjO 
{DOWN} {6  LEFT} J { RVS } (GRN}  {BLK}(0FF} 
KtBzi(RVS}^l8  Tblk] [OFFJBX3 
TdOWN}{6  LEFTjV  -  V"         srem  197 
PRINT" {3  DOWN} MORE  NATIVES  APPEAR 1 " : 
PRINT" {DOWN} RUN  FOR  THE  SHIP!" 

srem  37 
PRINT" {DOWNjTYPE  ( BLU] RUNE BLK}  AND  P 
RESS  RETURN"  srem  208 

TI$="000000"  srem  43 

INPUTA$:IFA?o"RUN"THEN4330  :  rem  153 
IFTK200THEN4500  srem  189 

PRINT" [DOWN] TOO  SLOW.  YOU'RE  DEAD.": 
GOTO17000  srem  117 

PRINT" {DOWN) WHEW  1  YOU  SAVED  YOUR  SKI 
N  BUT  LOST  YOUR"  srem  119 

PRINT "FOOD  AND  WATER" sCH=CH-l  srem  8 
GOTO4810  srem  208 

FD=10:WT=10sCH=CH+l  srem  96 

PRINTLEFT?{D$,23)  "PRESS  {RED] RETURN 
{BLK}"  srem  80 

A?  =  " " : GETA? : IFA?  <  >  CHR? ( 13 } THEN4820 

s  rem  142 
RETURN  srem  176 

REMSTORRM  srem  144 

IFRND(1)> .5THENRETURN  srem  107 
POKE53281,12  srem  140 

PRINT" (CLRj TERRIBLE  STORM"    srem  25 


1FRND(1)> .9THEN  PRINT" { DOWN) SHI PWREC 

K  AND  PERISH" sGOTO17000       srem  48 
5030  PRINT" [DOWN) YOU  RIDE  IT  OUT,  BUT  LOS 

E  SUPPLIES" SPRINT" [DOWN} OVERBOARD." 

srem  13 
5040  SP=SP-4  srem  173 

5050  PRINTLEFT?{D?,23)  "PRESS  {RED) RETURN 

[BLK]"  srem  77 


5060  A?  =  "" sGETA$:IFA?<>CHR?(13)THEN5060 

srem  136 
5070  POKE53281,3sRETURN  srem  119 

6000  REM  ARAB  DHOWS  srem  69 

6010  PRINT" [CLR} HOSTILE  WATERS"    srem  25 
6020  PRINT" [DOWNjARAB  TRADERS  WILL  TRY  TO 
KEEP  YOU  OUT"  srem  201 

6030  PRINTLEFT?(D?, 23)  "PRESS  { RED) RETURN 
{BLK}"  srem  76 

6040  A?="" sGETA?:IFA?oCHR?(13)THEN6040 

srem  134 
6045  IFRND{1)> . 5THENRETURN        srem  116 
6050  PRINT" {CLR) {DOWN] " ; TAB{ 8) DH$ s PRINT" 
{HOME) {DOWN) "TAB (20) DH5      srem  244 

6060  PRINT" [HOME} [9  DOWN] ARAB  DHOWS  APPEA 

R"  srem  157 

6070  PRINT" {DOWN}TYPE  { BLU ) FLEE { BLK }  AND 

{SPACE] PRESS  RETURN"  srem  252 

6072  TI$="000000"  srem  49 

6074  INPUTA?s IFA? <>"FLEE"THEN6074 srem  206 
6076  IFTK200THEN6090  srem  203 

6080  PRINT" [DOWN] THEY  SINK  YOU . " sGOTO1700 

0  srem  181 

6090  PRINT" [DOWN} YOUR  PILOT  ESCAPES  THEM. 

srem  232 
6100  PRINTLEFT?(D?,23)  "PRESS  E RED] RETURN 

{BLK}"  srem  74 

6110  A?="" sGETA? : IFA$<>CHR? ( 13 ) THEN6I10 

srem  130 
6120  RETURN  srem  169 

10000  REM  LOG  BOOK  srem  226 

10002  GOSUB16000sQ=INT(ML/200)    srem  200 

10003  IFQ> 1THENPRINTLEFT? ! D$ , 5 ) ; " 

[9  RIGHT}" ;LEFT?(DT?,3*Q)    srem  93 

10005  PRINT" {HOME] {BLK} [2  SPACES] SHIP ' S  R 
ECORD"  srem  215 

10006  WK?=RIGHT?("{2  SPACES] "+STRS (WK) , 4) 

srem  204 

10007  ML?=RIGHT?("{2  SPACES} "+STR? ( ML) , 4 ) 

srem  187 

10008  FDS=RIGHT?("{2  SPACES} "+STR? ( FD) , 4 ) 

srem  158 

10009  SP?=RIGHT$("(2  SPACES} "+STR?(SP),  4) 

srem  209 

10010  GP$=RIGHT$("[2  SPACES} "  +  STR?(GP),  4) 

srem  177 

10011  CH?=RIGHT?( "[2  SPACES) "+STR${CH), 4) 

srem  154 

10012  WT?=RIGHT$< "E2  SPACES] "+STR? (WT) , 4} 

srem  219 

10020  PRINTLEFT$(D$,14)TAB(20) "WEEKS  OUT 

[4  SPACES} ";WK$  srem  95 

10030  PRINTTAB(20) "MILES  SAILED  ";ML$ 

srem  1.15 
10040  PRINTTAB(20) "FOOD {9  SPACES} " ; FD? 

srem  97 
10042  PRINTTAB(20)  "WATER{8  SPACES}  "  ,-WT? 

srem  223 
10045  PRINTTAB( 20} "SUPPLIES [5  SPACES} " ; SP 
?  srem  204 

10050  PRINTTAB(20)"GOLD{9  SPACES}";GP? 

srem  109 

10060  PRINTTAB(20)"CREW  SPIRIT[2  SPACES)" 

;CH?  srem  72 

10070  PRINT"[DOWN]"TAB(14)M?(G)   srem  112 

1007  3  IFG=10RG=2THENPRINTTAB(14)"TOOK  ON 

{SPACE} FOOD  &  WATER";  srem  9 

10074  IFG=4THENPRINTTAB(14) "AT  MALINDI" 

srem  99 
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10075 


10077 

10080 
10090 

10095 
11000 
11010 


11020 


11030 


11035 
11100 
14000 
14002 

14005 
14010 
14030 

14034 


14036 


14038 

14039 

14040 
1404  2 

14045 

14140 


IFG=5THENPRINTTAB(10}" [DOWN} [RVSjYO 
U  MADE  ITl"::PRINT"  ( RVS) CONGRATULA 
TIONS1 {HOME}";  srem  7 

IFG=5THEN  PR1NT"HIST0RY  WAS  WRONG." 
:END  srem  48 

PRINTLEFTS(DS, 24) "PRESS  C"  : rem  5  2 
A$  =  ""  sGETA$:  IFAS  <>  "CTHEN10090 

:rem  183 
RETURN  :rem  223 

REM  EVAL  SITUATION  : rem  190 

IFFD<1THENPRINT" [CLRjOUT  OF  FOOD":P 
RINT"( DOWN} YOU  DIE  OF  STARVATION.": 
GOTO17000  :rem  229 

IFSP<1THENPRINT"{CLR}0UT  OF  SUPPLIE 
S": PRINT" {DOWN] YOU  DIE" SGOTO17000 

:rem  126 
IFCH<2THENPRINT" {CLRJCREW  MUTINIES. 
": PRINT" [DOWN} THEY  FORCE  YOU  TO  TUR 
N  BACK."  :rem  202 

IFCH<2THEN .17000  :  rem  169 

RETURN  : rem  211 

POKE53281,7:  REM  WEATHER  : rem  184 
WH=FNR{7}:G=0:GG=5iCM=M%(WII)*FG 

:rem  137 
PRINT" [CLR} {6  DOWN} WEATHER" : rem  212 
IFWH=7THEN14140  : rem  193 

PRINTWH? ( WH )  : IFWH  <  3THENCH=CH-1 

:rem  239 
IFML<800ANDML+CM>S00THENG=lsWT=10:F 
D=FD+3:SP=SP+6: IFFD<10THENFD=10 

srem  170 
IFML<1500ANDML+CM>1500THENG=2sWT=10 
sFD=FD+3 : SP=SP+6 s IFFD< 10THENFD=10 

:  rem  9 
IFML<5000ANDML+CM>5000THENG=3 

t rem  57 
IFML<6600ANDML+CM>6600THENG=4 

:rem  73 
IFML>6600THENGG=6  : rem  91 

ML=ML+CM : Q=INT ( ML/2+ . 5 ) : I FML>  9000TH 
ENG=5  :rem  2 

GOT014155  :rem  55 

PRINT" [ DOWN} STEADY  RAIN" : PRINT" 
[DOWN]YOU  REFILL  WATER  TANKS" :WT=10 

:rem  46 
PRINTLEFT$(D$, 23)  "PRESS  {RED)RETUR 
N{BLK}"  :rem  131 

AS=""sGETA$sIFA$<>CHR$C13)THEN14157 

:rem  246 
RETURN  :rem  215 

POKE53281, 13: [3  SPACES] REM  SETUP 

:rem  103 
PRINT" [ CLR] HENRY  THE  NAVIGATOR,  PRI 
NCE  OF  PORTUGAL,"  :rem  137 

PRINT" BELIEVES  THERE  MUST  BE  A  SEA- 
ROUTE  TO  "  srem  221 
PRINT" [DOWN] INDIA.  HE  HAS  OFFERED  A 
PRIZE  FOR"  :rem  137 
PRINT" [DOWN] FINDING  IT.  VASCO  DA  GA 
MA  IS  GOING  TO"  :rem  117 
PRINT" {DOWN] TRY.  HIS  SHIPS  WILL  BE 
[SPACE] READY  SOON.  BUT"  : rem  6 
PRINT" {DOWNjYOU  HAVE  A  SHIP  THAT  CA 
N  LEAVE  TODAY."  srem  143 
PRINT" {2  DOWNjYOU  DECIDE  TO  TRY  YOU 
R  LUCK, "  :rem  213 
PRINTLEFT$(DS,23)  "PRESS  {REDjRETUR 
N[BLK}"  :rem  125 
A$  =  "  "  :  GETAS  :  IFA$  <>C1IR?  (  13  )THEN15023 

:rem  232 
WT=10:GP=20  :rem  182 


15030  PRINT" [CLRjOTHERS  HAVE  TRIED.  SOME 
(SPACE)DIED  IN  STORMS,"     : rem  241 

15031  PRINT"{DOWN}SOME  OF  THIRST  OR  STARV 
ATION.  SOME  WERE"  srem  196 

15032  PRINT" {DOWN} MURDERED  BY  PIRATES,  OT 
HERS  BY  NATIVES."  :rem  204 

15033  PRINT" {DOWN} UNHAPPY  CREWS  MUTINIED. 

ARAB  TRADERS"  : rem  63 

150  34  PRINT" [DOWN] HAVE  KILLED  TO  PROTECT 
[SPACEjTHEIR  ROUTES."  : rem  8 

15035  PRINT" [DOWN] ALL  THESE  COULD  HAPPEN 
[SPACE] TO  YOU."  srem  51 

15036  PRINT" [2  DOWN} { RVS } WORDS  OF  ADVICE 
[OFF]:  NOT  ALL  STRANGE  SHIPS" srem  5 

1503  7  PRINT" [DOWN] HOLD  PIRATES.  NATIVES  C 
AN  BE  FRIENDLY."  : rem  77 

15038  PRINT" (DOWN} FRESH  FOOD,  GOOD  WEATHE 
R,  AN  INCREASE"  :rem  2  37 

15039  PRINT" [DOWN] IN  GOLD  WILL  KEEP  YOUR 
[SPACE] CREW  HAPPY."  srem  46 

15050  PRINTLEFT$(D$,23)  "PRESS  [REDJRETUR 

n{blk) "  :rem  126 

15060  A$="" :GETAS:IFA$<>CHR$(13)THEN15060 

:rem  234 
15130  PRINT" [CLR] [DOWN] "TAB{30) {2  SPACES] 

SS$  srem  196 

15140  PRINT" {3  DOWN] PRESS  {RVS]l(QFF]  TO 

{SPACEjSET  SAIL  FROM  LISBON" :rem  47 
15150  A?="" :GETA$ :IFAS<> "L"THEN15150 

:rem  196 
1515  5  FORI=lTO30s PRINT" {HOME] "MS? s PRINT" 

{UP}"MS${12  SPACES] tNEXT     srem  96 
15160  SP=50:CH=10sFD=10  srem  7 

15180  PRINTLEFT$(D$, 23)  "PRESS  {RED}RETUR 

N{BLK]"  :rem  130 

15185  A?="";GETASsIFA$<>CHR?(13)THEN15185 

:rem  250 

15200  RETURN  irem  216 

16000  POKE53281, 3 : PRINT" {CLR} " sIFML=0THEN 

PRINT" {CLR} [BLK]  SEA  ROUTE  TO  INDI 

A" :POKE53280, 3  srem  82 

16004  PRINT" [BLK] RRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRRR[YEL] "  :rem  130 

16005  REM  PRINT'MYEL}"  :  rem  79 
16010  PRINTTAB(8)"{RVS] {10  SPACES} {OFF} 

{7  SPACES] [RVS] [7  SPACES]"  : rem  223 

16012  PRINTTAB(8)" [RVS] [2  SPACES } (OFF] £ 
{3  SPACES}  g2  J3  [RVS]  {19  SPACES  J""" 

srem  244 

16014  PRINTTAB{8)"£2  U1E3  SPACES] ECl 

[2  SPACES] {RVS} {23  SPACES}" srem  107 

16016  PRINTTAB(4)"iB3{3  SPACES } {RVS )£ 
[3  SPACES] [OFF] {4  SPACES} {RVS} 
{19  SPACES}"  srem  73 

16018  PRINTTAB(7)"[RVS]£{8  SPACES} {OFF} 
B*i{RVS][l2  SPACES} {OFF}£" 

srem  169 

16020  PRINTTAB{6}"[RVS}£[9  SPACES] [OFF] 
[SPACE]B*HRVS]  {2  SPACES}£*3 
[OFF]  {2  SPACES}  B*HRVS}  {4  SPACES] 
[OFF]£"  srem  3 

16022  PRINTTAB(3)"£b3{2  SPACES} {RVS] 
{10  SPACES]g*3EOFF]  E*J}(RVS] 
{2  SPACES]g*3 [OFF] [2  SPACES]{RVSj 
{3  SPACES] [off]£"  srem  24 

16024  PRINTTAB(6) "(RVS] (11  SPACES} |*3 
[OFF]  E*3(RVS}  {OFF}£(2  SPACES} 
[RVS} {2  SPACES] EOFF]£"        srem  40 

16026  PRINTTAB(6)"ERVS] {12  SPACES] B*^ 
(OFF}  £{3  SPACES] B*3tRVS]  " 

srem  75 


16028  PRINTTAB(6)"g*3(RVSj{l2  SPACES) 

{OFF} £{5  SPACESj |*3"         :rem  59 
16030  PRINTTAB(.10)"g*i{RVS)  (7  SPACES] 

(OFF}£"  !rem  128 

16032  PRINTTAB(11)"[RVS)  (6  SPACES} (OFF]£ 

:rem  164 
16034  PRINTTAB( 11)"{RVS) [6  SPACES) (OFF) " 

:rem  253 
16036  PRINTTAB(11)"(RVS) (6  SPACES) [OFF} " 

:rem  255 

16038  PRINTTAB{11)"{RVS}  {6  SPACES] {OFF} " 

:rem  1 

16039  PRINTTAB{11)"[RVS} {5  SPACES] lOFF]£ 

:rem  171 

16040  PRINTTAB(11}"(RVS] (5  SPACES] {OFF] 
{RVS]gH|"  irem  192 

16042  PRINTTAB(  U)"  [RVS]  [4  SPACES } (OFF) £ 

[RVS]  "  srem  183 

16044  PR1NTTAB(11)"[RVS) {3  SPACES] [OFF}£ 

{2  SPACES) [RVS]  "  :rem  185 

16046  PRINTTAB( 11 )"§*!{ RVS]  (OFF}£" 

:rem  136 
16048  IFML>0THENPRINT"{BLK] "; : RETURN 

irem  126 
16050  PRINTTAB( 20)" [DOWN] [BLK] PRESS  B 

{OFF)  TO  BEGIN";  : rem  156 

16060  A?=""iGETA?: IFA$<> "B"THEN16060 

:rem  188 
16070  RETURN  :rem  222 

17000  PRINTLEFT$(D$,23)  "PRESS  (REDjRETUR 

N(BLK)"  :rem  123 

17010  A$  =  "" :GETA$:IFA$<>CHR$(13)THEN17010 

srem  228 
17020  PRINT" {CLR] (2  DOWN] ON  HAY  20,  1498" 

:PRINT"{dOWN}VASCO  DA  GAMA  REACHED 

{SPACE} CALCUTTA  ON  THE"      : rem  86 
17025  PRINT" [DOWN] WEST  COAST  OF  INDIA,  AF 

TER{2  SPACES}"  :rem  54 

17030  PRINT "[DOWN) A  VOYAGE  OF  11  MONTHS  A 

ND  9500  MILES. {4  DOWN}"      : rem  70 
17040  PRINT" {DOWN} PLAY  AGAIN?  Y  OR  N" 

srem  251 
17050  A?="":GETA?:IFAS="Y"THENRUN:rem  142 
17060  IFA$<>"N"THEN17050  : rem  42 

17070  PRINT"[ CLR} BETTER  LUCK  ANOTHER  TIME 

•"  irem  198 

17080  END  :rem  215 

The  Inner  World  Of 
Computers 


(Article  on  page  110.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type'  COMPUTEI's  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


10    PRINT" [CLR] [BLK}    TO    CREATE    [RVSjBINAMI 
TE"  :rem    7 

20    PRINT"    PERSON/ITEM    PROFILE"  : rem   121 

30    PRINT"     PUT     {RVS}. {OFF}     IN    ALPHA    CELL" 

:rem    28 

40  PRINT" {5  SPACES] { RVS ) ABCDEFGHIJKLMNO" : 
DIMD(16),NA$(16),B$(16)         : rem  112 

50  PRINT" {5  SPACES] [ RVS } PPPPPPPPPPPPPPP" 


: rem  120 

60  PRINT "HOW  MANY  NAME/ITEMS ": INPUTTT: IFT 

T>14THENTT=14  : rem  43 

70  FORI=0TOTT-1  :  READNAS  { I )  -.NEXT   :  rem  201 

80  PRINT" [CLR]  IF  ATTRIBUTE  APPLIES" 

: rem  29 
90  PRINT"  PUT  [RVS}. (OFF)  IN  ALPHA  CELL" 

; rem  34 
100  PRINT "IN  ROW  OPPOSITE  NAME  # " : rem  168 
110  PRINT" [RVS} NAME {OFF}  ABCDEFGHIJKLMNO" 

: rem  96 

120  INPUT"  #{3  SPACES } [ RVS ) OOOOOOOOOOOOOO 

0(17  LEFT) ";BS:L=LEN(B$1       : rem  36 

130  XP=L-1 :F0RI=1T0L:DMS=MID$ (B$, I ,1) iIFD 

H$>"1"THENPRINT"{2  UP) (2  SPACES )":DM? 

="":GOTO120  :rem  102 

140  IFDM$=". "THENDM$="1"  ;rem  30 

150  D=D+ ( VAL ( DM$ ) ) * 2 tXP : XP=XP-1 : NEXT 

srem  192 

160  GOSUB300:T=T+1  : rem  37 

170  PRINT"{UP]  "TAB(2)T:B$="":D=0:D$="":I 

F  T<TT  THEN  120  ; rem  154 

180  PRINT" [5  SPACES) ABCDEFGHIJKLMNO" ;PRIN 

T"TO  FIND  ATTRIBUTES":PRINT"TYPE  NAME 

#'S-  :rem  131 

190  PRINT" (  l..."TT")  ANY  ORDER"  : rem  199 

200  PRINT: INPUT"#" ;AL:AL=AL-1 ; PRINT" {UP } " 

:IFAL<0ORAL>TTTHEN240  -rem  62 

210  FORJ=0TO14  ;rem  57 

220  IF(D(AL)AND2tJ)=2tJ  THENPRINTCHR$ ( 79- 

J);  :rem  138 

230  NEXT:GOTO200  : rem  217 

240  FORI=0TOTT-1 : PRINTLEFT$ (NA$ ( I ) , 5 ) " 

[RVS] "B$(I) : PRINT" [RVS 3 "D( I) :NEXT 

:rem  187 
250  PRINT" [5  SPACES ) ABCDEFGHIJKLMNO" 

: rem  160 
260  END: REM* SAVE  DATA*  : rem  42 

300  B$(T}=B?;D(T)=D:  :rem  31 

310  IFLEN(B?(T) }<15THENB$(T)=LEFT$(" 
[16  SPACES }",15-LEN(B$(T) ) )+B${T) 

:rem  139 
320  RETURN  :rem  117 

400  DATAMARYMARY , BO PEEP , BOYBLUE , MSMUFFIT , 
5NAME , 6NAME , 7NAME , 8NAME , 9NAME , 10NAME 

:rem  30 

410  DATA11 NAME, 12NAME, 13 NAME, 14NAME,15NAM 

E.16NAME  -rem  172 

Getting  Started 
With  A  Disk  Drive 

(Article  an  page  106.) 

1  F0RI=828TO8B3 : READA : POKEI , A : NEXTI 

srem  254 
10  REM "D=DSAVE " § BACK 2 " , D0 : ?DSS : CATALOGD0 

: rem  159 
20  BB=PEEK(44)+27sPOKE995,BB  : rem  85 
30  POKE998,PEEK(55 ) : POKE999 , PEEK( 56 ) : POKE 

55,0:POKE56,BB:CLR  : rem  55 

40  BB=PEEK(995)  : rem  66 

50  N=PEEK ( 999 ) -BB-1 : BA=BB*256 : MA=828 

: rem  12 
60  DIMBM%{35,24)  srem  63 

70  FORJ=0TO7:TA(J)=2tJsNEXT       : rem  217 
80  PRINT" {CLR} {3  RIGHT} [ RVS } BACKUP  1541 

{OFF}"  :rem  72 

90  PRINT" (DOWN} 'GOTO 10000'  IF  PROGRAM  QUI 

TS  ABNORMALLY"  srem  241 
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t  rem 

rem 
:  rem 
:rem 


147 
235 
122 
212 
36 


100  PRINT" [DOWN} "N" BUFFERS  AVAILABLE" 

iretn 
110  0PEN1,8,15 

200  REM  ***  MAIN  FUNCTIONS  **** 
210  GOSUB1000 

220  D$="S" *GOSUB3200;I2$=IR$ 

230  I FDRS <>"2A" THENPRINT "{RVS} ILLEGAL  DOS 

1.0  DISK(OFF3"tGOTO10000     srem  177 

240  IFI2$«H5THENPRINT"tRVS}SOURCE  AND  DE 

ST I NAT I ON  HAVE  SAME  ID  CODE [ OFF} " t GOT 

010000  ;rem  127 

GOSUB2500  j rem  222 

T=«TSsS=0iNU=l  jT1=TsS1=S       i  rem  179 

PRINT#1, "I0"sOPEN3,8, 3, "#"     s rem  86 

PRINT" READING  BLOCK  #";         srem  46 

IFBM% ( Tl , SI ) -0THENGOSUB2000 : NU=NU+1 1 1 

FNU>NTHEN320  t rem  23 

S1=S1+1 sIFSl>20THENSl=0:Tl=Tl+l 

: rem  30 
IFTKTF+1THEN290  :  rem  164 

PRINT"{DOWN}"  srem  119 

CLOSES  :rem  63 

DS="D"iGOSUB3200sIFIRSoilSTHENGOTO34 
0  : rem  226 

PRINT#1,"I0":OPEN3,8,3,"#"  : rem  87 
PRINT "WRITING  BUFFER  #";  : rem  166 
NU=lsTl=T:Sl=S  j rem  73 

IFBM% (Tl , SI )=0THENGOSUB2200 :NU=NU+1 : I 
FNU>NTHEN410  : rem  25 

S1=S1+1 sIFSl>20THENSl=0;Tl=Tl+l 

: rem  39 
IFTKTF+1THEN380  srem  164 

PRINT "{DOWN}"  :rem  119 

CL0SE3  srem  63 

S=Sl+lsIFS>20THENS=0iTl=Tl+l  : rem  143 
T=T1 tIFT>TFTHEN500  srem  103 

DS  =  "S"sGOSUB3200sIFIR$oI2$THEN450 

srem  189 
NU  =  l!Tl=T;Sl=S;GOTO270  J  rem  85 
REM  FINISHED  XFERS  srem  75 

CLOSE1  jrem  61 

POKE55, PEEK (998) : POKE56, PEEK ( 999 ) :CLR 

srem  184 
PRINT" {2  DOWN}BACKUP  COMPLETE" 

: rem  154 

OPEN1,8,0, "$0"  srem  128 

GET#1,A$:IFA$<>"[RVS) "THEN550  srem  38 

GOTO610  srem  210 

SS=ST:A=LEN(A$) s IFATHENA=ASC 

srem  182 
IFBTHENA=ASC 
srem  188 
srem  158 
srem  159 
SGOTO570 

srem  214 

s  rem  207 

IFATHENA=ASC 

s  rem  179 

IFBTHENB=ASC 

srem  186 

s  rem  5 

srem  67 

: rem  116 

: rem  169 


250 
260 
270 
280 
290 

300 

310 
320 
330 
340 

350 
360 
370 
380 

390 

400 
410 
420 
430 
440 
450 

460 
500 
510 
520 

530 

540 
550 
560 
570 

580 

590 
600 
610 

620 
630 

640 

650 

660 

670 

1000 

1010 

1020 


PRINTA? 

GET#1,A$ 

(A?) 

GET#l,B$sSS=STsB=LEN{BS; ; 

(B$) 

IFSSTHEN660 

IFA=1ANDB=1THENGOSUB630 

GET#1 , A$  s IFA?  =  " "THENPRINT 


PRINTA$; SGOTO610 

GET# 1 , A? : SS=ST  s  A=LEN ( A$ ) 

(A$) 

GET#1,B$:SS=ST:B=LEN(B?) 

(B$) 

N=B*256+AsPRINTN; s RETURN 

CLOSE1 

END 
REM  HEADER  DEST  DISK 
PRINT" {DOWN} INSERT  DESTINATION  DISK 
{SPACEjTO  BE  FORMATTED"      srem  182 
INPUT" [2  DOWN} DISK  NAME { 3  RIGHT} 
{SHIFT-SPACE }{ 16  SPACES} {19  LEFT}";D 
N$  srem  148 

IFDNS=" (SHIFT-SPACE) "THENPRINT" 


1030 
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1040 
1050 

1060 

1070 
1080 

1090 

1100 

1110 
1120 
1130 
1140 
2000 

2010 
2020 
2030 
2040 
2050 


2060 
2070 


2080 

2085 

2090 

2100 
2200 

2210 
2220 

2230 

2240 
2245 
2250 


2260 
2270 
2280 
2290 

2300 
2500 
2510 
2520 
2530 
2540 

2550 
2560 

2570 
2580 


{3  UP)"; sGOTO1020  srem  78 

IFLEN(DN$)>16THENCLRsGOTO40  srem  198 
F=0:FORJ=1TOLEN(DN$ ) sSl$=MID$ (DN$, J, 
1)  srem  210 

IFS1$=" {SHIFT-SPACE ) "0RS1$=CHRS { 34 )T 
HENF=1  srem  65 

NEXTJ;IFFTHENPRINT"[3  UP)'*,-  SGOTO1020 

srem  132 
INPUT "{DOWN} UNIQUE  DISK  ID(3  RIGHT} 
{SHIFT-SPACE} {20  SPACES }{ 23  LEFT } " ; I 
1$  srem  40 

IFI1$=" [SHIFT-SPACE) "THENPRINT" 
[2  UP)"; sGOTO1080  srem  177 

IFLEN(I1$)<>2THENPRINT"{2  UP}"; sGOTO 
1080 

PRINT#1,  "N0;  "-fDN$  +  ",  "+I1? 
GOSUB3000 

IFERTHENPRINTER? :GOTO1000! 
RETURN 
REM  READ  BLOCK  Tl , SI  TO 

C=. 

PRINT#1, "U1";3;0;T1;S1 

GOSUB3000 : IFNOTERTHEN2060 

C=C+1:IFC<3GOTO2020  srem  93 

PRINTERS  s  FORJ  = ( BB+NU ) *  256TO ( BB+NU ) *2 

56+25  5 s POKE J, . sNEXTJsGOTO2100 

: rem  251 
PRINTtl, "B-P";3?0  srem  177 

IFNUO0THENPRINT"{3  SPACES  ){  3  LEFT}" 
; RIGHT? ( " { 2  SPACES } "+STR? { NU ) , 3 } ; " 
(3  LEFT}";  srem  26 

POKE996,PEEK(3) : POKE997 , PEEK{4) s POKE 
4,BB+NUsSYSMA  srem  64 

POKE3 , PEEK ( 996 ) : POKE4 , PEEK ( 997 ) 

srem  99 
I FSTO  .  ANDST  <  >  64THENGOSUB3000  s  GOTO20 

srem  179 
srem  163 
T1,S1  FROM  BUFFER  # 
srem  135 
srem  115 
:PRINT#1, "B-P"; 
srem  212 


s  rem 

100 

? 

srem  17 

:  rem  7 

00 

srem 

198 

s  rem 

166 

BUFFER 

NU 

s  rem 

133 

;  rem 

113 

s  rem 

243 

0 

srem  80 

50 

RETURN 

REM  WRITE  BLOCK 

{ SPACE }NU 

C=. 

PRINT#1, "B-AH;0;T1;S1 

3;0 

PRINT"{3  SPACES}{3  LEFT }"; RIGHT? { " 

{2  SPACES)"+STR$(NU),3);"[3  LEFT}"; 

t  rem  13 
P0KE996 , PEEK ( 3 ) s  POKE997 , PEEK ( 4 ) i POKE 
4,BB+NUsSYSMA+3  srem  156 

POKE3 , PEEK ( 996 ) s  P0KE4 , PEEK ( 997 ) 

srem  97 
IFSTO  .ANDST  < >  64THENPRINT  "  { RVS }  IEEE 
{SPACE} WRITE  ERROR" ST" [OFF} " sGOTO 100 
00  s  rem  37 

PRINT#1, "U2";3;0;T1;S1  srem  2  50 
GOSUB3000sIFNOTERTHEN2300  srem  83 
C=C+lsIFC<3THEN2260  srem  95 

PRINT" {RVS) UNRECOVERABLE  WRITE  ERROR 


"ERSsGOTO10000 

RETURN 

REM  GET  BAM  TO  BM%(T,S) 

TS=lsTF=. 

PRINTtl, "10" s OPENS, B, 3, "#" 

S9=0 

PRINT" {DOWN} TRACK  #{3 

{SPACEjTO  XFER" 

PRINT "1 24  Tl" 

NU=0  :T1=18 : S1=0  sC0$=CHR$ ( . ) 

0 

BY=4 

T%=(BY-4)/4+l 


srem  177 
srem  165 
srem  214 
: rem  28 
srem  136 
srem  195 
SPACES} BLOCKS 
srem  219 
srem  229 
GOSUB200 
srem  119 
srem  218 
srem  145 


2590 
2600 

2610 
2620 

2630 
2640 
2650 
2660 
2670 
2680 
2690 

2700 

2710 

2720 
2730 
2740 
2750 

2760 

2770 
2780 

2790 
3000 
3010 

3020 

3030 
3200 

3210 

3220 
3230 

3240 
3250 
3260 
3270 
3280 
3290 

3300 

10000 

10010 

15000 


PRINT" {2  SPACES }";T%;  : rem  144 
IFPEEK ( BA+BY ) = . THENFORJ= . TO20 : BM% (T% 
,J)  =  . :NEXT:BY=BY+4:GOTO2650  : rem  175 
S=0  srem  137 

BY=BY+1 : A0=PEEK ( BA+BY ) : FORJ= . T07 : BM% 
(T%,S)=A0ANDTA{J) :S=S+1 :NEXTs rem  202 
IFS<22THEN2620  :  rem  70 

BY=BY+1  trem  155 

ES=21:IFT%>17THENES=19  '  srem  91 
IFT%>24THENES=18  : rem  231 

IFT%>30THENES=17  : rem  228 

FORJ=EST024 :  BM%  ( T% , J ) =-1 :  NEXT :  rem  33 
SM= . : FORJ  = . TO20 : IFBM% ( T% , J ) = . THENSM= 
SM+1  -rem  231 

NEXT:PRINTTAB( 12) ; SMsS9=S9+SM 

:rem  143 
IFSM=.ANDTS=T%THENTS=TS+1:GOTO2730 

srem  233 


IFSMO.THENTF=T% 

IFBY<143THEN2580 

CL0SE3 

PRINT "START  =";TS 


: rem  33 
: rem  200 
: rem  118 
FINISH  =  ";TF 

: rem  158 
TOTAL  OF ";S9; "BLOCKS  T 


PRINT"(DOWN}A 

O  XFER" 

S8=90+25+( ,650+.980)*S9 

S7=INT(S8/60) : PRINT "APPROX" 

(S8-S7*60) ; "FOR  COPY" 

RETURN 

REM  READ  ERR  CH  TO  ER, ER? 

INPUT#1,E0$,E1$,E2$,E3$:ERS=E0$+ 

ElS+","+E2?+","+E35  srem 

ER=LEN ( E0$ ) : I FERTHENER=VAL { E0$ ) 

:rem 
RETURN  : rem 

REM  INSTRUCT  TO  SWAP  TO  DISK  GIVEN  I 
N  D$  srem  73 

IFD$="D"THENS1S="DESTINATI0N":G0T032 


:rem  231 

srem  136 

S7"s  "INT 

srem  203 

srem  178 

s  rem  88 
i  it  . 

i    ■*■ 

176 

146 
166 


30  srem  87 

S1?="S0URCE"  srem  193 

PRINT" {DOWN} INSERT  ";Sl$s"  DISK,  PRE 
SS  {RVS} SPACE [OFF}"  srem  213 

GETA$sIFA$<>"  "THEN3240  srem  242 
OPEN2,8,0,"$0"  srem  178 

GOSUB3000:1FER>0THEN10000  srem  252 
FORJ=lT026:GET#2,A$sNEXTJ  ;rem  57 
GET#2,A$:GET#2,B$:IR$=A$+B?  srem  192 
GET#2,A?:GET#2,A$:GET#2,B$sDR$=A$+B$ 

srem  188 
CLOSE2: RETURN  srem  136 

REM  DROP  OUT  srem  2 

POKES5,PEEK{998) s POKE56, PEEK (999) xC 
LRsSTOP  srem  147 

DATA  76  ,  66  ,  3  ,  76  ,  91 ,  3  ,  162  ,  3  ,  32  ,  198  ,  2 
55,160,0,132,3,32,207,255,145 

srem  113 
15010  DATA  3,165,144,208,3,200,208,244,32 
,204,255,96,162,3,32,201,255,160 

i rem  245 
15020  DATA  0,132,3,177,3,32,210,255,165,1 
44,208,3,200,208,244,32,204,255,96 

: rem  87 


BEFORE  TYPING. .. 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTERS  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


Dynamic  SAVE  For 
VIC  And  64 

(Article  en  page  120.) 

Program  1 :  Dynamic  SAVE  For  Tape 

60000  REM  TAPE  SAVER  srem  133 

60010  Q$=CHR$(34) :N$="DYNAMIC  SAVE" 

srem  195 

60019  REM  USE  EITHER  60020  OR  60021 

srem  36 

60020  POKE36879, 27:C1$=" (WHT)" :C2$="[BLU} 
":REM  FOR  V1C-20  srem  14 

60021  REM  POKE53280,14sPOKE53281,6sCl$=" 
{BLU}" sC2$="£73"iREM  FOR  COMMODOR 

E  64  srem  225 

60030  PRINTCl$"{CLR]FORQ=lT02sSAVE"Q?N$Q$ 

"sNEXT"C2$  srem  139 

60040  POKE631, 19:POKE632, 13  srem  237 
600  50  POKE633,06sPOKE634, 101 s POKE6  35 , 58: P 

OKE636, 86: POKE637, 101 : POKE198, 7:END 

srem  172 

Program  2:  Dynamic  SAVE  For  Disk 

60000  REM  DISK  SAVER  srem  134 

60010  Q$=CHR$ ( 34) :N$=" DYNAMIC  SAVE" 

srem  195 

60019  REM  USE  EITHER  60020  OR  60021 

srem  36 

60020  POKE36879, 27 :C1$=" (WHT} " :C2S="fBLU} 
" : REM  FOR  VIC-20  s  rem  14 

60021  REM  POKE53280,14sPOKE53281,6sCl$=" 
[BLU}" :C2?="E7^":REM  FOR  COMMODOR 

E  64  srem  225 

60030  PRINTC1$"(CLR)SAVE"Q$"@0:"N$Q$",8:V 

ERIFY,,QSN$QS",8"C2$  :rem  194 
60040  POKE631, 19sPOKE632, 13sPOKE198, 2sEND 

srem   103 


CUT-OFF! 


(Article  on  page  46.) 

Program  1: 

Tiny  MLX— Special  VIC  Version 

100  POKE55,174:POKE56,23sCLRsPOKE788,194 

srem  76 
S=6063:E=7658  srem  136 

PRINT" (CLR)";CHRS (14) :AD=S  srem  56 
PRINTRIGHTS ( "0000"+MID$ ( STR$ ( AD) , 2 ) , 5 
);":",-  :F0RJ=1T06  srem  234 

320  GOSUB570:IFN=-1THENJ=J+N:GOTO320 

srem  228 
480  IFN<0THENPRINT:GOTO310  srem  168 
490  A(J)=N:NEXTJ  srem  199 

500  CKSUM=AD-INT(AD/256 ) *256  s  F0RI  =  1T06  sCK 
SUM=(CKSUM+A(I) )AND255:NEXT   srem  200 
510  PRINTCHR?(18): sGOSUB570: PRINTCHR? ( 20 ) 

:rem  234 
515  IFN=CKSUMTHEN530  : rem  255 

520  PRINTs PRINT "LINE  ENTERED  WRONG": PRINT 
"RE-ENTER" sPRINT:GOSUB1000sGOTO310 

srem  129 
530  GOSUB2000  srem  218 

540  FORI=lT06:POKEAD+I-l,A(I) : NEXT srem  80 
550  AD=AD+6:IFAD<ETHEN310  srem  212 
560  GOTO710  srem  108 
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210 
300 
310 


570 
580 
581 
585 

590 
600 
610 

620 
630 
640 
650 

660 
670 
680 
690 

692 
695 

700 

710 

720 
730 

740 

750 

760 

762 

763 

765 

766 

770 

775 
780 

781 

782 
845 


I  FA 


N=0:Z=0 

PRINT"^+l"r 

GETA? : I FA$  = " "THEN581 

PRINTCHR5(20) ; :A=ASC(A$) 

ORA=32THEN670 

I FA> 1 28THENN=-A=  RETURN 

IFAO20  THEN  630 

GOSUB690 : IFI=1ANDT=44THENN= 

(LEFT)  [LEFT}"; :GOTO690 

GOTO570 

IFA<4BORA>57THEN580 

PRINTAS  ; :N=N*10+A-48 

IFN>255  THEN  A=20 :GOSUB1000 


:rem  88 
rem  79 

: rem  95 
130RA=44 
:rem  229 
:rem  137 
: rem  10 
■1:PRINT" 
:rem  172 
s rem  109 
: rem  105 
: rem  106 
GOTO600 
:  rem  229 
Z=Z+1:IFZ<3THEN580  : rem  71 

IFS=0THENGOSUB1000:GOTO57-0    :  rem  114 
PRINT", "; :RETURN  : rem  240 

S%=PEEK(209)+256*PEEK(210)+PEEK(211) 

:rem  149 
F0RI=1T03:T=PEEK(S%-I)  : rem  68 
IFT  <>44ANDT  <  >  58THENPOKES%- 1,32; NEXT 

:rem  205 
PRINTLEFT? { " { 3  LEFT } " , 1-1 ) ; : RETURN 

:rem  7 
PRINT" (CLR} (RVSj***  SAVE  ***{3  DOWN}" 

:  rem  236 

INPUT" [DOWN}  FILENAME" ;F$     : rem  228 

PRINT: PRINT" {2  DOWN) [RVS }T{ OFF } APE  OR 

[RVS}d{OFF}ISK:  (T/D) "       : rem  228 

GETA$ : I FA?  <> "T"ANDA$  <> "D"THEN740 

:rem  36 
DV=1-7*(A$="D") :IFDV=8THENF$="0:"+F? 

j rem  158 
T$=F?:ZK=PEEK(53)+256*PEEK{54)-LEN(T$ 
)  :POKE782,ZK/256  : rem  3 

POKE781 , ZK-PEEK( 782 ) *256 : POKE780, LEN( 
TS) :SYS65469  : rem  109 

POKE780,1:POKE781,DV:POKE782,1:SYS654 
66  : rem  69 

POKE254,S/256:POKE253,S-PEEK{254)*256 
:POKE780,253  : rem  12 

POKE782 , E/256 : POKE781 , E-PEEK( 782 ) *256 
:SYS65496  : rem  124 

IF(PEEK(783)AND1)0R(ST  AND191 JTHEN780 

: rem  111 
PRINT" {DOWN} DONE, ": END  : rem  106 
PRINT" [DOWN} ERROR  ON  SAVE . { 2  SPACESjT 
RY  AGAIN. ":IFDV=1THEN720  : rem  17T 
0PEN15,8,15:INPUT#15,E1$,E2$:PRINTE1? 
;E2$ :CLOSE15:GOTO720  : rem  103 

GOTO720  :rem  115 


1000 
1001 
1002 
1003 

2000 
2001 

2002 


POKE780,1:POKE781,DV 
66 

REM  BELL  TONE 

POKE36878,15:POKE36074, 190 

FORW=1TO300:NEXTW 


POKE782,l:SYS654 

: rem   70 

:rem   250 

: rem   206 

:rem    117 

POKE36878 , 0 : POKE36874 , 0 : RETURN 

:rem  74 
:rem  78 
■l:POKE36878,W:POKE368 
srem  22 
rem   119 


REM    BELL    SOUND 
FORW=15TO0STEP- 
76,240:NEXTW 
POKE36876 , 0 : RETURN 


Program  2:  cut-offs— vie  version 

6063  :03  2, 081, 02  5,076,181,02  3,081 

6069  s 173, 066 ,003, 024, 105,001,041 

6075  :  141, 066, 003, 173, 067, 003, 128 

6081  s 105, 000, 141, 067, 003, 174, 171 

6087  ;060,003,032,020,027,169,254 

6093  t001, 141,065,003,032,078,013 
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6099 
6105 
6111 
6117 
6123 
6129 
6135 
6141 
6147 
6153 
6159 
6165 
6171 
6177 

6183 

6189 

6195 

6201 

6207 

6213 

6219 

6225 

6231 

6237 

6243 

6249 

6255 

6261 

6267 

6273 

6279 

6285 

6291 

6297 

6303 

6309 

6315 

6321 

6327 

6333 

63  39 

6345 

6351 

6357 

6363 

6369 

6375 

6381 

6387 

6393 

6399 

6405 

6411 

6417 

6423 

6429 

6435 

6441 

6447 

6453 

6459 

6465 

6471 

6477 

6483 

6489 

6495 

6501 

6507 

6513 


1027, 
;032, 
:032, 
;173, 
:080, 
:240, 
:092, 
;029, 
:003, 
:  161, 
:032, 
!032, 
1 201, 
:003, 


162, 
240, 
143, 
068, 
173, 
073, 
028, 
027, 
032, 
247, 
029, 
090, 
000, 
201, 


002, 
032, 
029, 
003, 
069, 
032, 
076, 
169, 
227, 
201, 
027, 
026, 
240, 
000, 


161, 
032, 
032, 
201, 
003, 
097, 
181, 
000, 
027, 
032, 
032, 
173, 
029, 
240, 


247, 
029, 
090, 
000, 
201, 
024, 
023, 
141, 
162, 
240, 
143, 
068, 
173, 
022, 


201,243 
027,097 
026,063 
240,146 
000,249 
032,227 
032,167 
065, 172 
000,198 
032,154 
029,051 
003,157 
069,227 
032,019 


097,024,032,092,028,076,132 
181,023,032,029,027,  173,2  54 
;  031, 145, 041 ,032, 240, 006,  034 
.076,181,02  3,076,007,029, 193 
:  17 3,  031, 145, 041, 032, 240, 21 3 
:  249, 162, 250,032,020,027,041 
: 173, 03 1,145, 041, 032, 208, 193 
: 249, 173,031, 145,041,032, 240 
:  240, 249, 162, 250, 03 2, 020, 016 
:027,076,181,023,169,147,204 
:032,210,255, 169,025, 141, 163 
1015,144,162,000,169,160,243 
:  157, 000, 030, 169, 000, 157, 112 
:000, 150, 232,224,022,208,185 
;241, 162,000, 169,160, 157, 244 
:  228, 031, 169, 000, 157, 228, 174 
t 151, 2 32, 224, 022, 208, 241, 189 
=169,000, 133,253,169,030,127 
:133, 254,169,000,133,251,063 
:  169, 150, 13  3,252,162,000,251 
:  169, 160,160,000,145,253,02  2 
:  169, 000, 145, 251, 160, 021, 143 
:  169, 160, 145, 25  3, 169,000,043 
:  145, 251,024,165,253,105,096 
=022,133,253,165,254,105,091 
:000, 133,254,024,165,2  51,248 
:105, 022, 133,251, 165, 25  2,099 
:  105, 000, 133, 252, 2 32, 224, 123 
;023, 208,205, 169,004, 162, 210 
:007, 157,000,150, 232,224, 215 
:015,208,248, 162,000, 189,017 
1 072, 025, 240, 006, 157, 007,  220 
:030,2  32,208,245, 169,006,097 
:  141, 248, 150, 169, 002, 141,064 
: 001, 151, 169,081, 141,248,010 
:  030, 169, 087, 141, 001, 031, 196 
:  169, 000, 141, 066, 003, 141, 007 
: 067, 003, 169, 007, 141, 075, 211 
:  003, 169, 020, 141, 074, 003, 165 
:  169, 001, 141,070,003, 169,058 
:  031, 141, 07 1,003, 169,248,174 
:141, 072, 003, 169, 030, 141, 073 
:  073, 003, 024, 162,000, 160, 201 
! 002, 032, 240, 2 55, 174,  061,  037 
:  003, 173,062,003,032,205,013 
:  2 21, 024, 162,000,160,0X6,124 
:  03 2, 240, 2 5 5, 174, 063, 00 3, 058 
:  173, 064, 003, 032, 205,221,251 
:096, 131, 149, 148, 173, 143, 143 
:134, 134,161,000,169,000,163 
:  141, 061, 003, 141,062,003,238 
:  141 ,  063 , 003 , 141 , 064 , 003 , 248 
=169,081,141,077,003,169,22  3 
:087, 141,076,003, 032,097,  025 
:024, 169,004, 162,002, 157, 113 
: 154, 150, 2  32, 224,020,  208,077 


6519 
6525 
6531 
6537 
6543 
6549 
6555 
6561 
6567 
6573 
6579 
6585 
6591 
6597 
6603 
6609 
6615 
6621 
6627 
6633 
6639 
6645 
6651 
6657 
6663 
6669 
6675 
6681 
6687 
6693 
6699 
6705 
6711 
6717 
6723 
6729 
6735 
6741 
6747 
6753 
6759 
6765 
6771 
6777 
6783 
6789 
6795 
6801 
6807 
6813 
6819 
6825 
6831 
6837 
6843 
6849 
6855 
6861 
6867 
6873 
6879 
6885 
6891 
6897 
6903 
6909 
6915 
6921 
6927 
6933 
6939 


248, 

162, 

002, 

157, 

198, 

150, 

232, 

224, 

020, 

208, 

248, 

141, 

018, 

151, 

162, 

000, 

189, 

052, 

026, 

240, 

006, 

157, 

156, 

030, 

232, 

208, 

245, 

162, 

000, 

189, 

071, 

026, 

240, 

006, 

157, 

200, 

030, 

232, 

208, 

245, 

169, 

048, 

141, 

060, 

003, 

141, 

018, 

031, 

162, 

100, 

032, 

020, 

027, 

173, 

031, 

145, 

041, 

012, 

201, 

008, 

240, 

033, 

201, 

004, 

240, 

010, 

173, 

031, 

145, 

041, 

032, 

240, 

06  3, 

076, 

167, 

025, 

173, 

060, 

003, 

056, 

233, 

001, 

201, 

047, 

240, 

028, 

141, 

060, 

003, 

141, 

018, 

031, 

076, 

167, 

025, 

173, 

060, 

003, 

024, 

105, 

001, 

201, 

058, 

240, 

020, 

141, 

060, 

003, 

141, 

018, 

031, 

076, 

167, 

025, 

169, 

057, 

141, 

060, 

003, 

141, 

018, 

031, 

076, 

167, 

025, 

169, 

048, 

141, 

060, 

003, 

141, 

018, 

031, 

076, 

L67, 

025, 

173, 

031, 

145, 

041, 

032, 

240, 

249, 

162, 

250, 

032, 

020, 

027, 

173, 

060, 

003, 

056, 

233, 

048, 

170, 

169, 

050, 

141, 

060, 

003, 

224, 

000, 

240, 

013, 

173, 

060, 

003, 

056, 

233, 

005, 

141, 

060, 

003, 

202, 

076, 

023, 

026, 

032, 

097, 

024, 

169, 

010, 

141, 

068, 

003, 

141, 

069, 

003, 

096, 

013, 

015, 

022, 

005, 

032, 

019, 

020, 

009, 

003, 

011, 

032, 

021, 

016, 

047, 

004, 

015, 

023, 

014, 

000, 

020, 

015, 

032, 

016, 

009, 

003, 

011, 

032, 

004, 

009, 

006, 

006, 

009, 

003, 

021, 

012, 

020, 

025, 

000, 

173, 

070, 

003, 

205, 

072, 

003 

240, 

003, 

076, 

230, 

026, 

173, 

071, 

003, 

205, 

073, 

003, 

208, 

121, 

173, 

075, 

003, 

174, 

074, 

003, 

201, 

014, 

240, 

012, 

201 

007, 

240, 

015, 

201 

013, 

240 

018, 

201, 

011, 

240 

021, 

224 

044, 

240 

024, 

076, 

230, 

026 

224, 

020, 

240, 

017 

076, 

230 

026, 

224 

012, 

240 

010, 

076 

230, 

026 

224, 

021 

240, 

003 

076, 

230 

026, 

173, 

061 

003 

024, 

109 

066, 

003 

141, 

061 

003, 

173 

062, 

003 

105 

000 

141, 

062 

003, 

173 

067 

003 

024, 

109 

062, 

003 

141 

062 

003, 

174 

068 

003 

202 

142 

068, 

003 

173, 

063 

003 

024 

,109. 

066 

003 

141 

063 

003 

-173, 

064, 

003, 

105, 

000, 

141, 

064, 

003, 

173, 

067, 

003, 

024, 

109, 

064, 

003, 

141, 

064, 

003, 

174, 

069 

003, 

202 

142, 

069 

003, 

096 

173, 

065 

003 

010 

170, 

189 

061 

003 

024 

109 

066, 

003 

157 

061 

003 

189 

,062, 

003 

,105 

000 

157 

062 

003, 

173 

,067 

003 

024 

,125 

,062, 

003 

,157 

,062 

,003 

,174 

,065, 

003 

,  189 

,068 

,003 

,056 

,  233, 

001 

,157 

,068 

,003 

,096 

,  160, 

000 

,200 

,208 

,253 

,  202 

,208, 

248 

,096 

,174 

,06  5 

,003 

,  188, 

0  !  2 

6945 

174 

6951 

191 

6957 

240 

6963 

155 

6969 

081 

6975 

063 

6981 

043 

6987 

169' 

6993 

099 

6999 

139 

7005 

079 

7011 

243 

7017 

226 

7023 

048 

7029 

187 

7035 

097 

7041 

231 

7047 

173 

7053 

036 

7059 

213 

7065 

144 

7071 

242 

7077 

102 

7083 

057 

7089 

180 

7095 

241 

7101 

058 

7107 

163 

7113 

059 

7119 

063 

7125 

011 

7131 

143 

7137 

192 

7143 

154 

7149 

176 

7155 

116 

7161 

080 

7167 

172 

7173 

164 

7179 

204 

7185 

099 

7191 

022 

7197 

080 

7203 

100 

7  209 

185 

7215 

236 

7221 

169 

7227 

229 

7233 

162 

7239 

034 

7245 

141 

7251 

251 

7257 

049 

7263 

076 

7269 

056 

7275 

136 

7281 

070 

7287 

078 

7293 

154 

7299 

199 

7305 

234 

7311 

175 

7317 

204 

7323 

065 

7329 

195 

7335 

211 

7341 

049 

7347 

244 

7353 

068 

7359 

033 

7365 

076 

,003 

138 

,010 

,170 

,181, 

247 

,157 

,070 

,003 

,  181 

,248, 

157 

,071 

,003 

,152 

,129 

,247, 

181 

,248 

024 

,105 

,120 

,149, 

248 

,224 

,002 

,208 

,008 

,169, 

006 

,129 

247 

,032 

,  180 

029, 

096 

,169 

002 

,129 

,247 

032, 

180 

,029 

096 

162 

,127 

142, 

034 

145 

173 

,032 

,145 

041, 

128 

,074 

074 

141 

,078 

003, 

162 

255 

142 

034 

,145 

,173, 

031 

145 

041 

028 

,013 

078, 

003 

074 

074 

174 

,065 

003, 

201 

014 

240 

018 

,201 

007, 

240 

038 

201 

013 

,240 

058, 

201 

011 

240 

078 

L89 

074, 

003 

076 

111 

027 

,157 

074, 

003 

138 

010 

170 

,056 

189, 

070 

003 

233 

022 

149 

247, 

189 

071 

003 

233 

000 

149, 

248 

076 

226 

027 

,157 

074, 

003 

138 

010 

170 

024 

189, 

070 

003 

105 

001 

149 

247, 

189 

071 

003 

105 

000 

149, 

248 

076 

226 

027 

157 

074, 

003 

138 

010 

170 

024 

189, 

070 

003 

105 

022 

149 

247, 

189 

071 

003 

105 

000 

149, 

248 

076 

226 

027 

157 

074, 

003 

138 

010 

170 

056 

189, 

070 

003 

233 

001 

149 

247, 

189 

071 

003 

233 

000 

149, 

248 

096 

174 

065 

003 

165, 

197 

201 

012 

240 

018 

201, 

021 

240 

038 

201 

044 

240, 

058 

201 

020 

240 

078 

189, 

074 

003 

076 

232 

027 

157, 

074 

003 

138 

010 

170 

056, 

189 

070 

003 

233 

022 

149, 

247 

189 

071 

003 

233 

000, 

149 

248 

076 

091 

028 

157, 

074 

003 

138 

010 

170 

024, 

189 

070 

003 

105, 

001 

149, 

247 

189 

071 

003, 

105, 

000, 

149 

248 

076 

091, 

028 

157, 

074 

003 

13G 

010 

170 

024, 

189 

070 

003 

105, 

022, 

149, 

247 

189 

071 

003 

105 

000, 

149 

248 

076 

091, 

028 

157, 

074 

003 

138 

010, 

170 

056, 

189 

070 

003 

233, 

001 

149, 

247 

189, 

071 

003, 

233 

000, 

149 

248 

096 

162, 

000 

189, 

231 

028 

240 

006, 

157, 

159, 

030 

232 

20B 

245, 

162 

000, 

189 

244, 

028 

240, 

006 

157, 

203 

030, 

232 

208, 

245 

162, 

000 

189, 

000 

029, 

240 

006, 

157 

054, 

031, 

232, 

208 

245, 

162 

000, 

189 

000, 

029, 

240, 

006 

157, 

064 

031, 

232, 

208, 

245, 

169, 

004 

162, 

000, 

157, 

155, 

150, 

232 

224, 

020, 

208, 

248 

162, 

000 

157, 

199, 

150, 

232, 

224, 

020 

208, 

248, 

162, 

000, 

157, 

053 

151, 

232, 

224, 

020 

208, 

248 

024, 

162, 

014, 

160, 

008, 

032, 

240, 

255, 

174, 

069, 

003, 

169, 

000, 

032, 

205, 

221, 

024, 

162, 

014, 

160, 

018, 

032, 

240, 

255, 

174, 

068, 

003, 

,099 
,177 
,036 
,110 
,148 
,174 
,232 
,043 
,139 
,073 
,236 
,179 
,242 
,024 
,  139 
,  148 
,065 
,  189 
,097 
,024 
,  193 
,181 
,228 
,176 
,217 
,205 
,017 
,200 
,241 
,005 
,  148 
,096 
,208 
,076 
,253 
,005 
,050 
,  194 
,159 
,242 
,254 
,186 
,034 
,138 
,022 
,210 
,079 
,162 
,046 
,010 
,210 
,058 
,165 
,148 
,210 
,203 
,169 
,071 
,028 
,239 
,067 
,112 
,  114 
,047 
,231 
,216 
,081 
,024 
,  151 
,022 
,201 
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7371  =169,000,032,205,221,173,2  35 

7377  :  031, 145, 041, 032, 208,249,147 

7383  =173,031, 145,041,032,240,109 

7389  ;249, 162,000,032,020,027,199 

7395  =032,097,024,096,016,018,2  54 

7401  =005,019,019,032,002,021,075 

7407  =020,020,015,014,000,020,07  2 

7413  =015,032,003,015,014,020,088 

7419  =009,014,021,005,000,012,056 

742  5  :009,022,005, 019, 061, 000,  117 
7431  =032,097,024,162,000,189,25  5 

743  7  =106,029,240,006,157,160, 199 
7443  =030,2  32,208,245,162,000, 128 
7449  =189, 116,029,240,006,157,250 
745  5  =203,030,232,208,245,162,087 
7461  =000, 189,129,029,240,006,118 
7467  =157,056,031,232,208,245,204 
747  3  =169,004,162,000,157,155,184 
7479  =150,232,224,020,208,248,113 
7485  =162,000,157,199,150,2  32,193 
7491  =224,020,208,248, 162,000,161 
7497  =157,053,151,232,224,020,142 
7  503  =208,248,173,031,145,041,157 
7509  =032,208,249,173,031,  145,15  5 
7515  =041,032,240,249,162,2  50,041 
7521  =032,020,027,032,081,025,058 
7527  :  076, 181,023,007,001,013,148 
7  533  =005,032,015,022,005,018, 206 
7539  =000,016,018,005,019,019,192 
7545  =032,002,021,020,020,015,231 
75  51  =014,000,020,015,03  2,016,224 
7  557  =012,001,025,032,001,007,211 
7563  =001,009,014,000,169,220,040 
7  569  =141,013,144,169,015,141,000 
7575  =014,144,162,000,032,020,011 
7  581  =027, 173,014,144,056,233,036 
7587  =001, 141,014, 144,16  2, 100,213 
7593  =032,020,027, 201,000,208,145 
7599  =2  38,141,013,144,096,173,212 
760  5  =065,003,201,000, 240,022,200 
7611  =169,200,141,012, 144,169,254 
7617  =015,141,014,144,174,060,229 
762  3  =003,03  2,020,027,169,000,  194 
7629  =141,012,144,096,169, 180,179 
7635  =141,012, 144, 169,015, 141,065 
7641  =014,144, 174,060,003,032, 132 
7647  =020,027,169,000, 141,012,080 
7653  =144,096,013,013,013,013,009 

Program  3:  cut-off;  64  version 


49152 
49158 
49164 
49170 
49176 
49182 
49188 
49194 
49200 
49206 
49212 
49218 
49224 
49230 
49236 
49242 
49248 
49254 
49260 
49266 


:032, 
:173, 
:141, 
:105, 
:060, 
;001, 
:195, 
:032, 
:032, 
:173, 
;083, 
:240, 
:074, 
:154, 
:003, 
=  161, 
=  032, 
:032, 
:201, 
=  003, 


200, 
066, 
066, 
000, 
003, 
141, 
162, 
240, 
119, 
068, 
173, 
076, 
196, 
195, 
032, 
247, 
154, 
215, 
000, 
201, 


193, 
003, 
003, 
141, 
032, 
065, 
002, 
032, 
197, 
003, 
069, 
032, 
076, 
169, 
203, 
201, 
195, 
194, 
240, 
000, 


076, 
024, 
173, 
067, 
145, 
003, 
161, 
032, 
032, 
201, 
003, 
190, 
006, 
000, 
195, 
032, 
032, 
173, 
032, 
240, 


006, 
105, 
067, 
003, 
195, 
032, 
247, 
154, 
215, 
000, 
201, 
192, 
192, 
141, 
162, 
240, 
119, 
068, 
173, 
025, 


192, 187 
001, 122 
003, 209 
174, 252 
169,116 
203, 219 
201, 236 
195,215 
194,069 
240, 227 
000,077 
032,060 
032, 136 
065,034 
000,167 
032,235 
197,057 
003,019 
069,055 
032, 103 


49272 
49278 
49284 
49290 
49296 
49302 
49308 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49410 
49416 
49422 
49428 
49434 
49440 
49446 
49452 
49458 
49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 
49524 
49530 
49536 
49542 
49548 
49554 
49560 
49566 
49572 
49578 
49584 
49590 
49596 

49602 
49608 
49614 
49620 
49626 
49632 
49638 
49644 
49650 
49656 
49662 
49668 
49674 
49680 
49686 


190, 

192, 

032,074, 

196, 

076, 

006, 

192, 

032, 154, 

195, 

173, 

001, 

220, 

045, 000, 

220, 

041, 

016, 

240, 

006,076, 

006, 

192, 

076, 

251, 

196,173, 

001, 

220, 

045, 

000, 

220,041, 

016, 

240, 

246, 

162, 

250,032, 

145, 

195, 

173, 

001, 

220,045, 

000, 

220, 

041, 

016, 

208,246, 

173, 

001, 

220, 

045, 

000,220, 

041, 

016, 

240, 

246, 

162,250, 

032, 

145, 

195, 

076, 

006,192, 

169, 

147, 

032, 

210, 

255, 169, 

015, 

141, 

033, 

208, 

169,005, 

141, 

032, 

208, 

162, 

000, 169, 

160, 

157, 

000, 

004, 

169,000, 

157, 

000, 

216, 

232, 

224,040, 

208, 

241, 

162, 

000, 

169, 160, 

157, 

192, 

007, 

169, 

000, 157, 

192, 

219, 

232, 

224, 

040,208, 

241, 

169, 

000, 

133, 

253, 169, 

004, 

133, 

254, 

169, 

000, 133, 

251, 

169, 

216, 

133, 

252, 162, 

000, 

169, 

160, 

160, 

000, 145, 

253, 

169, 

000 

145, 

251, 160, 

039, 

169, 

160 

145, 

253, 169, 

000, 

145, 

251 

024, 

165, 253, 

105, 

040, 

133 

253, 

165,254, 

105, 

000, 

133 

254, 

024, 165, 

251, 

1  0  5  , 

040 

133, 

251, 165, 

252, 

105, 

000 

133, 

252,232, 

224 

025, 

208 

205 

169,012, 

162, 

016, 

157 

000, 

216,232, 

224 

024, 

208 

248 

169,131, 

141, 

016, 

004 

169 

149,141, 

017 

004, 

169 

148, 

141,018, 

004 

169, 

173 

141 

019, 004 

169 

143, 

141 

020 

004, 169 

134 

141, 

021 

004 

141,022 

004 

169, 

161 

141 

023,004 

169 

006, 

141 

199 

217, 169 

002 

141, 

209 

217 

169,081 

141 

199, 

005 

169 

087,141 

209 

005, 

169 

000 

141,066 

003 

141, 

067 

003 

169,007 

141 

075, 

003 

169 

011, 141 

074 

003, 

169 

209 

141,070 

003 

,169, 

005 

141 

071,003 

169 

199, 

141 

072 

003,169 

005 

141, 

073 

003 

169,152 

032 

,210, 

255 

024 

162,000 

160 

,007, 

032 

240 

255,174 

,061 

,003, 

173 

062 

,003,032 

,205 

,  189, 

024 

162 

,000, 160 

,029 

,032, 

240 

255 

,174,063 

,003 

,  173, 

064 

003 

032, 205 

189 

096, 

169 

000 

141,061 

003 

,141, 

062 

003 

141,063 

003 

,141, 

064 

003 

169,081 

141 

,077, 

003 

169 

087, 141 

076 

,003, 

032 

190 

,192, 169 

,012 

,  162, 

009 

157 

,240, 216 

,232 

,224, 

030 

208 

,248, 162 

,009 

,  157, 

064 

,217 

,232, 224 

,030 

,208, 

248 

141 

,  163,217 

,  162 

,  000, 

189 

rl71 

, 194,240 

,006 

,  157, 

249 

,004 

,232,208 

,245 

,162, 

000 

,  189 

,193, 194 

,240 

,006, 

157 

,073 

,005, 232 

,208 

,  245, 

169 

,048 

,141,060 

,003 

,  141, 

112 
110 
147 
162 
037 
200 
162 
053 
085 
204 
231 
203 
246 
018 
036 
028 
097 
038 
204 
068 
164 
198 
160 
121 
004 
118 
090 
168 
196 
216 
142 
054 
141 
207 
040 
211 
217 
183 
197 
090 
205 
102 
220 
130 
078 
023 
133 
222 
171 
029 
004 
167 
072 
077 
072 

015 
203 
107 
235 
185 
213 
028 
026 
193 
155 
187 
080 
064 
168 
072 
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49692 
49698 
49704 
49710 
49716 
49722 
49728 
49734 
49740 
49746 
49752 
49758 
49764 
49770 
49776 
49782 
49788 
49794 
49800 
49806 
49812 
49818 
49824 
49830 
49836 
49842 
49848 
49854 
49860 
49866 
49872 
49878 
49884 
49890 
49896 
49902 
49908 
49914 
49920 
49926 
49932 
49938 
49944 
49950 
49956 
49962 
49968 
49974 
49980 
49986 
49992 
49998 
50004 
50010 
50016 
50022 
50028 
50034 
50040 
50046 
50052 
50058 
50064 
50070 
50076 
50082 
50088 
50094 
50100 
50106 
50112 


163 

,005 

,  162 

,100 

,032 

,  145, 

195 

,173 

,001 

,220 

,041 

,015, 

201 

014 

,240 

033 

,201 

,013, 

240 

010 

,173 

001 

,220 

,041, 

016 

240 

,063 

076 

,030 

,  194, 

173 

060 

,003 

056 

,233 

,001, 

201 

047 

,240 

028 

,141 

,060, 

003 

141 

,163 

005 

,076 

,030, 

194 

173 

,060 

003 

,024 

,  105, 

001 

201 

058 

240 

020 

,141, 

060 

003 

,141 

163 

,005 

,076, 

030 

194 

169 

057 

,141 

060, 

003 

141 

163 

005 

076 

,030, 

194 

169 

,048 

141 

060 

003, 

141 

163 

005 

076 

030 

,194, 

173 

001 

220 

041 

016 

240, 

249 

162 

250 

032 

145 

,195, 

173 

060 

003 

056 

233 

048, 

170 

169 

050 

141 

060 

003, 

224 

000 

240 

013 

173 

060, 

003 

056 

23  3 

005 

141 

060, 

003 

202 

076 

142 

194 

032, 

190 

192 

169 

010 

141 

068, 

003 

141 

069 

003 

096 

013, 

015 

022 

005 

032 

010 

015, 

025 

019 

020 

009 

003 

011, 

032 

021 

016 

047 

004 

015, 

023 

014 

000 

020 

015 

032, 

003 

008 

015 

015, 

019 

005, 

032 

0  1  9 

011 

009, 

012, 

012, 

032 

012, 

005 

022, 

005 

012, 

000 

173 

070 

003, 

205, 

072, 

003 

240, 

003 

076, 

099 

195, 

173 

071, 

003, 

205, 

073, 

003, 

208 

121, 

173 

075, 

003, 

174, 

074 

003, 

201, 

014, 

240, 

012, 

201 

007 

240 

015, 

201, 

013, 

240 

018, 

201 

011, 

240, 

021, 

224 

013, 

240 

024, 

076, 

099, 

195 

224, 

011, 

240, 

017, 

076, 

099 

195, 

224, 

014, 

240, 

010, 

076 

099, 

195 

224, 

007, 

240, 

003 

076, 

099, 

195, 

173, 

061, 

003 

024, 

109 

066, 

003, 

141, 

061 

003, 

173, 

062, 

003, 

105, 

000 

141, 

062, 

003, 

173, 

067, 

003, 

024, 

109, 

062, 

003, 

141, 

062, 

003, 

174, 

068, 

003, 

202, 

142 

068, 

003, 

173, 

063, 

003, 

024, 

109, 

066, 

003, 

141, 

063, 

003, 

173, 

064, 

003, 

105, 

000, 

141, 

064, 

003, 

173, 

067, 

003, 

024, 

109, 

064, 

003, 

141, 

064, 

003, 

174, 

069, 

003, 

202, 

142, 

069, 

003, 

096, 

173, 

065, 

003, 

010, 

170, 

189, 

061, 

003, 

024, 

109, 

066, 

003, 

157, 

061, 

003, 

189, 

062, 

003, 

105, 

000, 

157, 

062, 

003, 

173, 

067, 

003, 

024, 

125, 

062, 

003, 

157, 

062, 

003, 

174, 

065, 

003, 

189, 

068, 

003, 

056 

233, 

001, 

157, 

068, 

003, 

096 

160, 

000, 

200, 

208, 

253, 

202 

208, 

248, 

096, 

174, 

065, 

003 

188, 

076, 

003, 

138, 

010, 

170 

181, 

247, 

157, 

070, 

003, 

181 

248, 

157, 

071, 

003, 

152, 

129 

247, 

181, 

248, 

024, 

105, 

212 

149, 

248, 

224, 

002 

208, 

008, 

169, 

006, 

129, 

247, 

032, 

170 

197, 

096, 

169, 

002, 

129, 

123 

50118 

167 

50124 

230 

50130 

219 

50136 

159 

50142 

072 

50148 

013 

50154 

232 

50160 

123 

50166 

231 

50172 

024 

50178 

233 

50184 

006 

50190 

209 

50196 

209 

50202 

041 

50208 

133 

50214 

191 

50220 

217 

50226 

084 

50232 

134 

50238 

035 

50244 

162 

50250 

235 

50256 

015 

50262 

009 

50268 

063 

50274 

038 

50280 

005 

50286 

041 

50292 

040 

50298 

225 

50304 

068 

50310 

242 

50316 

218 

50322 

014 

50328 

153 

50334 

213 

50340 

164 

50346 

001 

50352 

026 

50358 

091 

50364 

119 

50370 

120 

50376 

187 

50382 

232 

50388 

134 

50394 

054 

50400 

000 

50406 

216 

50412 

164 

50418 

017 

50424 

233 

50430 

171 

50436 

249 

50442 

047 

50448 

251 

50454 

118 

50460 

196 

50466 

026 

50472 

122 

50478 

144 

50484 

037 

50490 

119 

50496 

062 

50502 

222 

50508 

212 

50514 

084 

50520 

199 

50526 

009 

50532 

187 

50538 

:247 
:065 
:015 
:007 
:058 
;074 
:074 
:  189 
:247 
:149 
:074 
:189 
:247 
:149 
:074 
:189 
:247 
:149 
:074 
:189 
:247 
rl49 
:162 
;006 
:245 
;240 
:208 
:196 
:232 
:244 
:006 
:162 
;224 
:157 
:208 
:218 
:024 
;240 
:  (50!) 

:013 
:174 
:205 
:000 
:173 
:041 
:032 
:096 
£032 
:014 
:015 
:005 
:019 
:162 
:006 
:245 
:240 
:208 
:  L57 
:208 
:217 
:173 
:041 
:032 
:045 
:246 
:032 
:007 
:022 
:005 

!020 

:015 


,032 
,003 
,201 
,240 
,201 
,003 
,003 
,070 
,  189 
,248 
,003 
,070 
,  189 
,248 
,003 
,070 
,189 
,248 
,003 
,070 
,  189 
,248 
,000 
,157 
,162 
,006 
,245 
,240 
,208 
,  196 
,232 
,009 
,030 
,064 
,248 
,  232 
,  162 
,255 
,032 
,  160 
,068 
,  189 
,220 
,001 
,016 
,  145 
,016 
,002 
,  000 
,014 
,000 
,061 
,  000 
,  157 
,  162 
,  006 
,  245 
,  240 
,  248 
,232 

,001 
,016 
,145 
,000 
,162 
,200 
,001 
,005 
,019 
,020 
,032 


,170 
,  189 
,014 
,038 
,011 
,076 
,138 
,003 
,071 
,076 
,138 
,003 
,071 
,076 
,138 
,003 
,071 
,076 
,138 
,003 
,071 
,076 
,189 
,255 
,000 
,157 
,162 
,006 
,245 
,240 
,208 
,157 
,208 
,217 
,162 
,224 
,013 
,  174 
,205 
,031 
,003 
,  173 
,041 
,  220 
,  240 
,  195 
,018 
,021 
,020 
,020 
,012 
,000 
,  189 
,000 
,000 
,  157 
,  169 
,216 
,162 
,224 
,  220 
,  208 
,  195 
,  220 
,  250 
,193 
,013 
,018 
,019 
,015 
,016 


197, 

096 

174, 

090 

000 

220 

041, 

210 

240, 

018 

201 

131 

201 

013 

240 

187 

240 

078 

189, 

231 

211, 

195 

157, 

176 

010 

170 

056, 

173 

233 

040 

149 

156 

003, 

233 

000, 

221 

073 

196 

157 

127 

010, 

170 

024, 

165 

105 

001 

149 

013 

003 

105 

000, 

117 

073 

196 

157 

151 

010 

170 

024 

189 

105 

040 

149 

076 

003 

105 

000, 

141 

073 

196 

157 

175 

010 

170 

056 

245 

233 

001 

149 

189 

003 

233 

000 

037 

073 

196 

096 

138 

219 

196 

240 

056 

004 

232 

208 

174 

189 

232 

196 

086 

079 

005 

232 

043 

000 

189 

244 

122 

157 

017 

006 

214 

162 

000 

189 

122 

006 

157 

033 

,224 

245, 

169 

012, 

226 

240 

216 

232, 

120 

248 

162, 

009, 

247 

232 

224 

030, 

040 

001 

157 

008, 

162 

037 

208 

248, 

039 

160 

015, 

032, 

052 

069 

003 

169 

050 

189 

024 

162, 

014 

032 

240 

255, 

139 

169 

000 

032, 

116 

001 

220 

045 

253 

016 

208 

246, 

157 

045 

000 

220 

091 

246 

162 

000 

143 

032 

190 

192 

230 

005 

019 

019 

135 

020 

020 

015 

078 

015 

032 

003 

058 

009 

014 

021 

073 

009 

022 

005 

039 

032 

190 

192 

230 

082 

197 

240 

100 

005 

232 

208 

100 

189 

092 

197 

127 

071 

005 

232 

,215 

012 

162 

001 

051 

232 

224 

030 

103 

,001 

157 

064 

106 

037 

208 

248 

,182 

045 

000 

220 

193 

246 

162 

250 

,207 

,173 

001 

220 

,056 

,041 

016 

240 

,114 

,032 

145 

195 

,076 

,076 

006 

,192 

,007 

,005 

032 

,015 

,  155 

,000 

016 

,018 

,  167 

,032 

,002 

,021 

,  192 

,014 

,032 

020 

,  221 

,012 

,001 

,025 

,  207 

COMP 

UTEI's  < 

sazetle 

Mordi  1984 

J  69 

50544 
50550 
50556 
50562 
50568 
50574 
50580 
50586 
50592 
50598 
50604 
50610 
50616 
50622 
50628 
50634 
50640 
50646 
50652 
50658 


:032, 

S000, 

:169, 
;009, 
1 141, 
:001, 
:208, 
:056, 
:241, 
:141, 
:141, 
:005, 
;212, 
:109, 
:208, 
:037, 
1 141, 
:032, 
t004, 
1006, 


001, 
169, 
129, 
141, 
000, 
212, 
162, 
233, 
169, 
005, 
024, 
212, 
169, 
065, 
247, 
141, 
004, 
145, 
212, 
212, 


007, 
015, 
141, 
005, 
212, 
169, 
080, 
001, 
000, 
212, 
212, 
169, 
010, 
003, 
141, 
000, 
212, 
195, 
141, 
096, 


001, 
141, 
004, 
212, 
169, 
015, 
03  2, 
201, 
141, 
096, 
169, 
128, 
162, 
232, 
001, 
212, 
174, 
169, 
005, 
013, 


009, 
024, 
212, 
169, 
012, 
141, 
145, 
000, 
004, 
169, 
016, 
141, 
000, 
224, 
212, 
169, 
060, 
000, 
212, 
013, 


014, 176 
212,167 
169, 180 
100,254 
141,043 
032,200 
195,202 
208,085 
212, 159 
008,029 
141, 107 
006,071 
024,249 
010,065 
169,150 
033,026 
003,034 
141,128 
141,167 
013,067 


Beginner's  Corner 


(Article  on  page  84, } 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTE!^  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


Program  1 :  Averages— VIC  Version 

4  PRINT"{CLR}  (3  DOWN} [ BLU }" s PRINT" 
{4  SPACES}************"sPRINT" 
(4  SPACES)*  AVERAGES  *"j PRINT" 
(4  SPACES}************"         srem  157 
6  FORI=lT08sREADN$(I) sNEXT        J  rem  138 
8  DATASUE,ANN, RITA, JUNE, BOB, JOE, JOHN,  BILL 

:rem  181 

10  DEF  FNF(X)=INT(X*RND(0)+1)     srem  111 

12  PRINT" (4  DOWNjCHOOSEj ": PRINT"!  INSTRUC 

TIONS":PRINT"2  PROBLEMS"         : rem  5 

14  GETC$:IFC$="2"THEN50  j rem  35 

16  IFCSo"l"THEN14  srem  224 

18  PRINT "{CLR} [DOWN } TO  CALCULATE  THE":PRI 

NT"AVERAGE  OF  SEVERAL" : PRINT"NUMBERS, 

(SPACE} FIRST  ADD"  : rem  65 

20  PRINT"THE  NUMBERS  THEN" : PRINT"DIVIDE  T 

HE  TOTAL  BY"! PRINT "THE  NUMBER  OF  ITEMS 

. "  s rem  25 

22  PRINT" {3  DOWN} {GRN} PRESS  RETURN." 

: rem  33 
24  GETR$!lFR$=""THEN24  srem  17 

26  IFASC(R$)ol3THEN24  srem  8 

28  PRINT" [CLR} {BLUjHERE  IS  AN  EXAMPLE. 

(DOWN) "s PRINT" [BLKjFIND  THE  AVERAGE  OF 
"sPRINT"THESE  NUMBERS :[ DOWN } "  srem  159 

30  GOSUB106 s PRINT" {DOWN} [BLU ]ADD  FOR  TOTA 
L"sPRINT"{RED}SUM  =  ";T        srem  209 

31  PRINT" {2  DOWN} f BLUjDIVIDE  BY  NUMBER" sP 
RINT"OF  ITEMS"  srem  177 

32  PRINTTr "/"?N;"  =  " ;T/Ns PRINT" {2  DOWN} 
{GRN} PRESS  Fl  TO  CONTINUE."    srem  202 

34  GETR?!lFR$o"{Fl}"THEN34       srem  213 
36  PRINT" [CLR} {BLU} NOW  TRY  A  PROBLEM."! PR 
INT"{BLK) (DOWN)GIVEN  THESE  NUMBERS"sGO 
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38 


40 


42 


44 


46 


48 
50 
52 


54 
56 

58 
59 

60 


SUB106  srem  106 

INPUT " { BLU }TOTAL { RED } " ; S  s I FS=T  THEN42 

: rem  206 
PRINT"{DOWN} [BLU}NO, 
NTTAB(6);T 

PRINT"{DOWN} (BLUjNOW 
{BLK]THE  AVERAGE  IS" 
N)<.01THEN46 
PRINT" [DOWN) {BLU} NO, 
OT032 

PRINT " {DOWN } [ BLU } CORRECT  1 " : PRINT " 
[DOWN} {GRN} PRESS  F7  TO  CONTINUE" 

:rem  234 
GETR? : IFR?  <> " { F7 } "THEN48 
P=FNF(3):ONP  GOTO52,60,70 
PRINT" { CLR) {BLU} A  BOWLING 
INT "THE  FOLLOWING  SCORES" 
E  GAME. {DOWN} "sT=0 
X=INT(2*RND{0) ) 

FORI=1TO4!S=115+FNF{40) :T=T+S 
I+X*4);TAB(8)S?NEXT 


62 
64 

66 


THE  TOTAL  IS"!PRI 
srem  227 

DIVIDE. "s PRINT" 
:INPUTAsIFABS(A-T/ 
i rem  239 

THE  AVERAGE  IS"  :G 
srem  130 


:rem  226 

: rem  60 

TEAM  HAD" i PR 

PRINT"FOR  ON 

srem  197 

srem  251 

PRINTN$( 

srem  179 


240 
GAM 
219 


PRINT "{DOWN} WHAT  WAS  THE  TEAM'S" 

s  rem 
PRINT"AVERAGE  SCORE  FOR" s PRINT"THE 
E?"sN=4:F=10sGOTO78  srem 

PRINT" {CLR} {BLU}A  BASKETBALL  TEAM  WON" 
sPRINT"THE  FOLLOWING  NUMBER" s PRINT "OF 
E SPACE } GAMES. {DOWN}" sT=0       srem 
N=4+FNF(3) sY=1983-N  srem 

FORI=1TON:S=50+FNF(20) sT=T+StY=Y+l 
NTY ; TAB (  9  )  S  s  NEXT  s  rem 

PRINT" {DOWN} WHAT  WAS  THE  AVERAGE" 


199 
208 
PRI 
138 
PRIN 

T "NUMBER  OF  GAMES  PER" s PRINT "YEAR  THE 

{SPACEjTEAM  WON"  srem  62 

68  PRINT "DURING  THESE  YEARS?" sF=6 sGOT078 

srem  25 
70  PRINT" {CLR} { BLU} A  FULLBACK  GAINED  THE" 

: PRINT "FOLLOWING  NUMBER  OF" s PRINT"YARD 

S  IN  SEVERAL"  s  rem  73 

72  PRINT "FOOTBALL  GAMES . {DOWN }" :T=0 sN=4+F 

NF(3)  srem  182 

74  FORI=1TON:S=60+FNF(30) sT=T+Ss PRINTTAB ( 

5)SsNEXT  srem  112 

76  PRINT" {DOWN} WHAT  WAS  THE  BACK ' S" s PRINT 

"AVERAGE  YARDS  GAINED" s PRINT" PER  GAME? 

" :F=10  i rem  116 

78  A=INT(T/N+-5) :C=FNF(4) sONC  GOTO80,82,8 

4,86  srem  36 

80  PRINT"A";AsFORI=lT03sA=A-FNF(F) sPRINTC 

HRS(66+I) ;AsNEXTsGOT088         srem  12 
82  PRINT"A  ";A-FNF(F)sPRINT"B  ":AsA=A+FNF 

(F)sPRINT"C  "rAsA=A4-FNF{F)  sPRINT"D  ";A 

;GOT088  srem  1 

84  I=A-FNF(F)sJ=I-FNF(F) sPRINT"A  ";JsPRIN 

T"B  ";I:PRINT"C  ":A:PRINT"D  ":A+FNF(F) 

sGOTOBS  s  rem  47 

86  I=A-FNF(F) : J=I-FNF(F) s K=J-FNF (F) s  PRINT 

"A  ";KsPRINT"B  ";J:PRINT"C  ":I:PRINT"D 

":A  srem  102 

88  GETASsIF{AS<"A")+{A$>"D")THEN88:rem  59 

90  IFASC{A$)-64=C  THEN98  srem  60 

92  PRINT" {DOWN} NO,  THE  ANSWER  IS  {RED}";C 

HR?(64+C) s PRINT" {GRN} PRESS  F3  TO  CONTI 

NUE"  srem  27 

94  GETA$sIFA$="{F3)"THEN50        srem  123 
96  GOT094  s  rem  21 

98  PRINT "CORRECT I " s PRINT" {DOWN ) {GRN} PRESS 

s"sPRINT"  Fl  ANOTHER  PROBLEM" s PRINT"  F 

7  END  PROGRAM"  srem  145 

100  GETA$ sIFAS=" {Fl} "THEN50       srem  158 
102  IFA$<>"{F7}"THEN100  srem  141 


104  GOTO108  :rem  103 

106  N=FNF( 3 )+4 :T=0 : FORI=lTONs J=10+FNF( 10) 
; P  RI NTTAB ( 6 ) J : T=T+ J : NEXT : RETURN 

:rem  18 
108  PRINT" {CLE} {BLU}":END         : rem  45 

Program  2:  Averages — 64  Version 

20  POKE  53281,1  s rem  241 

30  PRINT  "{CLR}{3  DOWN}{BLU}"  :  rem  25 
40  PRINT  "{4  SPACES}************"  :  rem  45 
50  PRINT  "{4  SPACES}*  AVERAGES  *":rein  216 
60  PRINT  "{4  SPACES}************"  : rem  47 
70  FOR  1=1  TO  8:READ  N?(I):NEXT  : rem  187 
80  DATA  SUE, ANN, RITA, JUNE, BOB, JOE, JOHN, BI 
LL  :rem  229 

90  DEF  PNF(X)=INT(X*RND(0}+1)  srem  119 
100  PRINT  "{4  DOWN ) CHOOSE : "  : rem  161 
110  PRINT  "1  INSTRUCTIONS"  : rem  73 
120  PRINT  "2  PROBLEMS"  : rem  250 

130  GET  C?  srem  219 

140  IF  C$="2"  THEN  500  : rem  2 

150  IF  C$<>"1"  THEN  130  t rem  62 

160  PRINT  "{CLR} (DOWN)TO  CALCULATE  THE" 

: rem  30 
170  PRINT  "AVERAGE  OF  SEVERAL"  i rem  11 
180  PRINT  "NUMBERS,  FIRST  ADD"  : rem  3 
190  PRINT  "THE  NUMBERS  THEN"  : rem  151 
200  PRINT  "DIVIDE  THE  TOTAL  BY"  : rem  24 
210  PRINT  "THE  NUMBER  OF  ITEMS."  srem  83 
220  PRINT  "{3  DOWN} {GRN} PRESS  RETURN." 

: rem  81 
230  GET  R$sIF  R$=""  THEN  230  : rem  111 
240  IF  ASC(R?)<>13  THEN  230  : rem  101 
250  PRINT  "{CLR}{BLU}HERE  IS  AN  EXAMPLE. 

{DOWN}"  :rem  180 

260  PRINT  "{BLKjFIND  THE  AVERAGE  OF" 

:rem  139 
270  PRINT  "THESE  NUMBERS :( DOWN } "  : rem  74 
280  GOSUB  1200  :rem  221 

290  PRINT  "(DOWN} (  BLU } ADD  FOR  TOTAL" 

:rem  208 
300  PRINT  "(RED} SUM  =  ";T  : rem  65 

310  PRINT  "{2  DOWN} (BLU} DIVIDE  BY  NUMBER" 

:rem  191 
320  PRINT  "OF  ITEMS"  s rem  125 

330  PRINT  T;"/";N;"  =  ";T/N       : rem  118 
340  PRINT  "(2  DOWN} (GRN} PRESS  Fl  TO  CONTI 
NUE. "  :rem  226 

350  GET  R$:IF  R$o"{Fl}"  THEN  350  :  rem  55 
360  PRINT  "{CLR} [BLUjNOW  TRY  A  PROBLEM." 

:rem  143 
370  PRINT" {BLK}{ DOWN} GIVEN  THESE  NUMBERS" 

: rem  26 
380  GOSUB  1200  :rem  222 

390  INPUT  "{BLU}TOTAL{RED}";S  : rem  189 
400  IF  S=T  THEN  420  : rem  204 

410  PRINT  "{DOWN} {BLU} NO,  THE  TOTAL  IS":P 
RINT  TAB{6)T  : rem  217 

420  PRINT  "{DOWN} {BLU} NOW  DIVIDE." 

srem  110 
430  PRINT  "(BLKjTHE  AVERAGE  IS  " j s rem  171 
440  INPUT  A  :rem  105 

450  IF  A=T/N  THEN  470  : rem  65 

460  PRINT  " {DOWN} { BLU} NO,  THE  AVERAGE  IS" 
: PRINT  "TOTAL/NUMBER  =";T/N:GOTO  340 

:rem  182 

470  PRINT  "( DOWN} { BLU} CORRECT  1"   : rem  207 

480  PRINT  "{DOWN} [GRN} PRESS  F7  TO  CONTINU 

E"  :rem  174 

490  GET  R$sIF  RS<>"(F7)"  THEN  490  : rem  68 


500  P=FNF(3)  srem  128 

510  ON  P  GOTO  520,640,770  srem  227 
520  PRINT" (CLR} (BLUjA  BOWLING  TEAM  HAD" 

:rem  97 
530  PRINT  THE  FOLLOWING  SCORES"  : rem  202 
540  PRINT  "FOR  ONE  GAME .{ DOWN} " :T=0 

: rem  135 
550  X=INT(2*RND(0})  j rem  44 

560  FOR  1=1  TO  4  : rem  16 

570  S=115+FNF(40) ;T=T+S  : rem  26 

580  PRINT  N?(I+X*4);TAB(8) ;S  : rem  64 
590  NEXT  I  :rem  38 

600  PRINT  "(DOWN} WHAT  WAS  THE  TEAM'S" 

:rem  25 
610  PRINT  "AVERAGE  SCORE  FOR"  : rem  198 
620  PRINT  "THE  GAME?"  : rem  163 

630  N=4sF=10:GOTO  900  : rem  130 

640  PRINT  "{CLR}{BLU}A  BASKETBALL  TEAM  WO 

N"  :rem  78 

650  PRINT  "THE  FOLLOWING  NUMBER"  : rem  199 
660  PRINT  "OF  GAMES. {DOWN}" sT=0  srem  169 
670  N=4+FNF{3) :Y=1983-N  srem  5 

680  FOR  1=1  TO  N  srem  45 

690  S=50+FNF(20) sT=T+SsY=Y+l  srem  110 
700  PRINT  Y;TAB(9)S  srem  108 

710  NEXT  I  ;rem  32 

720  PRINT  "{DOWNjWHAT  WAS  THE  AVERAGE" 

srem  118 
730  PRINT  "NUMBER  OF  GAMES  PER"  srem  29 
740  PRINT  "YEAR  THE  TEAM  WON"  srem  153 
750  PRINT  "DURING  THESE  YEARS?"  srem  114 
760  F=6sGOTO  900  srem  98 

770  PRINT  "(CLRi{BLU}A  FULLBACK  GAINED  TH 

E"  srem  47 

780  PRINT  "FOLLOWING  NUMBER  OF"  srem  127 
790  PRINT  "YARDS  IN  SEVERAL"      srem  157 

800  PRINT  "FOOTBALL  GAMES .{ DOWN }" sT=0 

srem  99 
810  N=4+FNF(3)  srem  225 

820  FOR  1=1  TO  N  : rem  41 

830  S=60+FNF(30) sT=T+S  srem  231 

840  PRINT  TAB(5)S  srem  217 

850  NEXT  I  -rem  37 

860  PRINT  "{DOWN}WHAT  WAS  THE  FULLBACK'S" 

: rem  62 
870  PRINT  "AVERAGE  NUMBER  OF  YARDS" 

srem  76 
880  PRINT  "GAINED  PER  GAME?"  srem  89 
890  F=10  srem  133 

900  A=INT(T/N+.5)  srem  178 

910  C=FNF(4)sON  C  GOTO  920,950,1000,1040 

srem  15 
920  PRINT  "A"; A  srem  41 

930  FOR  1=1  TO  3;A=A+FNF{F):PRINTCHR$(65+ 
I);A;NEXT  srem  146 

940  GOTO  1060  srem  157 

950  PRINT  "A  ";A-FNF(F)  srem  202 

960  PRINT  "B  ";A  srem  46 

970  A=A+FNF(F) s PRINT  "C  ";A  srem  197 
980  A=A+FNF(F)  .-PRINT  "D  ";A  srem  199 
990  GOTO  1060  srem  162 

1000  I=A-FNF(F) sJ=I-FNF(F)  srem  206 
1010  PRINT"A  ";JsPRINT"B  ":IsPRINT"C  ";A 

srem  244 
1020  PRINT  "D[SHIFT-SPACE}",'A+FNF(F) 

s  rem  144 
1030  GOTO  1060  srem  196 

1040  I=A-FNF(F) :J=I-FNF(F) sK=J-FNF{F) 

srem  124 
1050  PRINT"A  ";K:PRINT"B{SHIFT-SPACE)";J: 
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1060 
1070 

1080 
1090 

1100 

1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

1230 
1240 


PRINT  "C  "]f.I|  PRINT  "D 

GET  AS 

IF  (A5<"A")+(A$>"D") 

IF  ASC(A$)-64=C  THEN 

PRINT  "(DOWNjNO,  THE 

";CHR$(64+C) 

PRINT  "(GRN) PRESS  F3 


GET  A$:IF  A$=" {F3 ] "THEN 

GOTO  1110 

PRINT  "CORRECT  1" 

PRINT" (DOWN} (GRN)PRESS:  " 

PRINT  "  Fl  ANOTHER  PROBLEM 

PRINT  "  F7  END  PROGRAM" 

GET  A$:IF  A$="[Fl) 

IF  A?<> " (F7  J "  THEN 

GOTO  1240 

N=FNF(3)+4:T=0 

FOR  1=1  TO  N 

J=10+FNF(10) : PRINT 

NEXT  I: RETURN 
PRINT" {CLR} {BLU)": 


' ;A      ;  rem  109 
:rem  12 
THEN  1060 

: rem  107 

1130    :rem  240 

ANSWER  IS  [RED} 

s  rem  67 

TO  CONTINUE" 

: rem  191 
500 


:rem  1 

rem  192 

rem  201 

rem  141 

: rem  49 

s  rem  5 

"  THEN  500   :rem  6 

1170      :rem  252 

: rem  203 

:  rem  6 

:  rem  S3 

TAB(6)J:T=T+J 

: rem  103 

: rem  104 

END        j rem  91 


Machine  Language 
For  Beginners 

f  Article  on  page  90.) 

Program  2: 

Double  Decker — VIC  Version 

10  1=12288  :rem  236 

20  READ  A:CK=CK+A?IF  A=256  THEN  40: rem  53 
30  POKE  I, A: 1=1+1 :GOTO  20  : rem  130 
40  IF  CK<>27447  THEN  PRINT"ERROR  IN  DATA 

(SPACE ) STATEMENTS " : STOP 
50  END 

12288  DATA  160,0,169,6,153,0 
12294  DATA  148,153,0,149,200,208 
12300  DATA  247,160,0,169,224,153 
12306  DATA  0,16,153,228,17,200 
12312  DATA  192,22,208,245,169,21 
12318  DATA  133,71,169,16,133,72 
12324  DATA  162,24,160,0,169,224 
12330  DATA  145,71,200,145,71,202 
12336  DATA  240,16,24,165,71,105 
12342  DATA  22,133,71,165,72,105 
12348  DATA  0,133,72,76,38,48 
12354  DATA  169,20,133,204,32,155 
12360  DATA  224,164,98,185,149,15 
12366  DATA  201,224,240,244,169,90 
12372  DATA  153 , 149, 15 , 198, 204 , 208: rem  100 
12378  DATA  235,169,215,133,251,169 

: rem  156 
12384  DATA  17,133,252,32,187,48 
12390  DATA  32,197,48,165,197,201 
12396  DATA  0,240,10,201,1,240     ! 
12402  DATA  21,201,60,240,84,208   ; 
12408  DATA  237,198,251,160,0,177 
12414  DATA  251,201,32,240,16,230 
12420  DATA  251,76,102,48,160,7    i 
12426  DATA  177,251,201,32,240,25 
12432  DATA  76,102,48,230,251,160 
12438  DATA  6,169,32,145,251,165 
12444  DATA  251,208,2,198,252,198 
12450  DATA  251,32,187,48,76,102   i 
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rem  198 
: rem  60 
: rem  97 
: rem  40 
:rem  33 
rem  1 84 
:rem  39 
rem  251 
rem  240 
: rem  25 
rem  242 
rem  240 
rem  108 
:rem  36 
: rem  56 
: rem  92 


:  rem  1 
:rem  5S 
rem  124 
rem  231 
: rem  49 
:rem  20 
rem  193 
: rem  33 
: rem  34 

:  rem  1 
: rem  54 
rem  251 


12456  DATA  48,160,0,169,32,145    : rem  202 

12462  DATA  251,230,251,208,2,230   :rem  27 

12468  DATA  252,32,187,48,76,102     : rem  5 

12474  DATA  48,160,5,169,120,145   :rem  253 

12480  DATA  251,136,208,251,96,160  : rem  95 

12486  DATA  0,136,208,253,96,256     : rem  5 

Program  3: 

Double  Decker — 64  Version 

10  1=49152  :rem  236 

20  READ  A:CK=CK+A:IF  A=256  THEN  40: rem  53 
30  POKE  I, A: 1=1+1: GOTO  20  : rem  130 
40  IF  CKO  297  51  THEN  PRINT"  ERROR  IN  DATA 

(SPACE} STATEMENTS": STOP        : 
50  END 

49152  DATA  160,0,169,8,153,0 
49158  DATA  216,153,0,217,153,0    : 
49164  DATA  218,153,0,219,200,208 
49170  DATA  241,160,0,169,224,153 
49176  DATA  0,4,153,192,7,200 
49182  DATA  192,40,208,245,169,39 
49188  DATA  133,71,169,4,133,72    : 
49194  DATA  162,24,160,0,169,224  i 
49200  DATA  145,71,200,145,71,202 
49206  DATA  240,16,24,165,71,105   : 
49212  DATA  40,133,71,165,72,105   : 
49218  DATA  0,133,72,76,44,192     : 
49224  DATA  169,20,133,204,32,158 
49230  DATA  224,164,98,185,168,3 
49236  DATA  201,224,240,244,169,90 
49242  DATA  153,168,3,198,204,208 
49248  DATA  235,169,169,133,251,169 

49254  DATA  7,133,252,32,193,192 

49260  DATA  32,203,192,165,197,201  :rem  97 

49266  DATA  56,240,10,201,8,240    : 

49272  DATA  21,201,35,240,84,208   : 

49278  DATA  237,198,251,160,0,177 

49284  DATA  251,201,32,240,16,230 

49290  DATA  251,76,108,192,160,7 

49296  DATA  177,251,201,32,240,25 

49302  DATA  76,108,192,230,251,160 

49308  DATA  6,169,32,145,251,165 

49314  DATA  251,208,2,198,252,198 

49320  DATA  251,32,193,192,76,108 

49326  DATA  192,160,0,169,32,145 

49332  DATA  251,230,251,208,2,230 

49338  DATA  252,32,193,192,76,108 

49344  DATA  192,160,5,169,120,145 

49350  DATA  251, 136,208,251,96, 160:rem  101 

49356  DATA    0,136,208,253,96,96,256 

:  rem    166 


rem  - 

L98 

:rem 

60 

:rem 

99 

rem 

L98 

:rem 

42 

:  rem 

42 

:  rem 

99 

:  rem 

63 

rem 

215 

rem 

255 

:  rem 

31 

rem 

248 

rem 

246 

rem 

159 

:  rem 

45 

:  rem 

12 

:rem 

98 

:  rem 

56 

rem 

170 

:  rem  3 

:  rem 

97 

rem 

196 

rem 

248 

:  rem 

64 

:  rem 

35 

:rem  6 

:  rem 

48 

:  rem 

94 

:  rem  7 

:  rem 

60 

:  rem 

52 

:  rem  0 

:  rem 

33 

:  rem 

62 

:  rem 

51 

Poker 

(Article  on  page  56.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTES  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings, 


Program  1 :  Poker— VIC  Version 

20  POKE36879, 200: PRINT" (CLR}":FORA=828T09 
98: READB: POKEA, B:NEXT  : rem  181 


30  WK=4* ( PEEK ( 36866 )AND1 28) +64* (PEEK (3686 
9)AND112)  :rem  223 

40  CL=37888+4* ( PEEK ( 36866 }AND1 28 ) -WK 

srem  220 

50  IFWK=7680THENFORA=lTO12:READBsREADC:PO 

KEB,CsNEXT  s rem  55 

60  DIMJ%(13,4) sDIMGS(20) sSl=36875 sS2=Sl+l 

:VL=Sl+3sDl=0:SC=0:HD=0         srem  97 

70  OS(4)="{2  SPACES]***  P0KER{2  SPACES}25 

6  ***(2  SPACES}*'  :rem  242 

S0  GS(7)="  IT'S  YOU  AGAINST  VIC"  : rem  217 

100  GS(9)="[2  SPACES) YOU  WIN  AS  FOLLOWS: 

{SPACE}"sG?(10}="{3  SPACES  J  ROYAL  FLUS 

H-$250{2  SPACES}"  :rem  175 

120  GS(11)="  STRAIGHT  FLUSH-S100 

{2  SPACES }"iG$(12)  =  "  {3  SPACES) 4  OF  A 

[SPACE}KIND-$20[4  SPACES}"    : rem  185 
140  G${13)="{4  SPACES} FULL  HOUSE-?10 

(4  SPACES)":G$(14)="  {l    SPACES)  FLUSH-$ 

8{7  SPACES)"  srem  134 

160  G${15)="(5  SPACES }STRAIGHT-$5 

{5  SPACKS}":G$(16)="[4  SPACES] 3  OF  A 

{SPACE}KIND-?4{4  SPACES]"     : rem  184 
180  G$(17)="{6  SPACES}2  PAIR-$3{7  SPACES} 

"sG$(18)="{2  SPACES]PAIR,  JACKS  &  UP- 

$1  "  :rem  17 

200  G?(20)="{2  SPACES] EACH  HAND  COSTS  SI. 

":NS="{HOME}{22  DOWN}"         :  rem  34 
210  BS=LEPT$(N$,20) : JWS=LEFTS (N$ , 10) 

: rem  177 
220  A=4  :  MM=220jG=50s  PRINT"  [  BLK  )  "  :  POKEVL,  1 

5:D1=0  :rem  98 

230  F0RB=1T022  s  PRINTLEFT? (NS , A) RIGHT? (G$ ( 

A),B) :P0KES1,MM  ; rem  138 

240  FORC=lTOG : NEXT : POKESl , 0 : NEXT : FORB= 1T0 

Dl :NEXTsIFA=20THENPOKEVL,0:GOTO310 

: rem  193 
250  IFA=18THENA=20sMM=220sPRINT"{WHT]"sG= 

50:D1=1500  srem  166 

260  IFA>8ANDA<18THENA=A+1  : rem  2  25 
270  IFA=7THENA=9sPRINT"fBLU)"sG=40:Dl=600 

: rem  145 
280  IFA=5THENGOSUB5000:FORA=1TO600:NEXT:A 

=  7 : PRINT " f  WHT } " : MM=238 : G=40 : Dl=600 

: rem  35 
290  IFA=4THENA=5 s PRINT "{ RED)" :MM=226 

: rem  144 
300  COTO230  :rem  97 

310  GS(4)="":G$(5)=""sG$(7)="":G$(10)=""s 

G?(20)=""  :rem  16 

320  AK$="{DOWN} {CRN} (RVS}  {DOWNHlEFT} 

{DOWN] {LEFT)  "sD$=B$+"[21  SPACES)" 

:rem  23 
340  E$=LEFTS(NS,15) :F$=ES+"{21  SPACES]":X 

=RND(-TI)  srem  104 

350  HD=HD+l:GOSUB4030s  POKE36879, 31 sPRINTC 

HR$(147) :SYS828  : rem  100 

360  PRINTLEFT$(N$,5)SPC(4)"{BLU)HIT  {RVS] 

K{OFF}  TO  KEEP"  :rem  3 

370  PRINTLEFT$(NS,7)SPC(3)"HIT  [RVS]C 

{OFF]  TO  CHANGE"  :GOSUB5050    : rem  227 
500  X=I NT ( RND (1)*13)+1:Y=INT( RND ( 1 ) * 4 )  + 1 : 

IFJ%(X,Y)=1THEN500  : rem  122 

510  J%(X,Y)=lsK=K+l  srem  10 

520  E=32:IFY=1THENG=88:H=0  srem  32 
530  IFY=2THENG=83sH=2  srem  254 

540  IFY=3THENG=65:H=0  srem  254 

550  IFY=4THENG=90sH=2  srem  0 

560  IFX=10THENE=49:F=48:GOTO620  srem  114 
570  IFX>lANDX<10THENF=X+48  srem  91 
580  IFX=11THENF=10  srem  54 


590  1FX=12THENF=17 
600  IFX=13THENF=11 
610  IFX=1THENX=14:F=1 
620  IFK>5THENRETURN 
630  IFX=lTHENX=14sF=l 


srem  63 
srem  50 

srem  3 
s  rem  244 

srem  5 


640  1 FK=1THENCD=WK  +  1 99  s  PT ( 1 ) =X : ST ( 1 ) =G 

srem  33 
650  IFK=2THENCD=WK+203 : PT( 2 ) =X  sST( 2 }=G 

srem  23 
660  I FK=3THENCD=WK+207  s  PT ( 3 }=X : ST ( 3 ) =G 

srem  31 
670  IFK=4THENCD=WK+211s  PT (4}=X sST{4 )=G 

srem  30 
680  IFK=5THENCD=WK+21 5 : PT ( 5 ) =X  s  ST{ 5 ) =G  s  GO 

SUB700: POKEVL, 5 sZ=250:GOTO810  srem  87 
690  GOSUQ700:GOTO500  srem  190 

700  POKECD, 112sPOKECD+CL,0sPOKECD+l,64:PO 

KECD-fl+CL ,  0  :  POKECD+2  ,  1 10 1  POKECD+2+CL , 

0  srem  197 

710  FORA=(CD+24)TO(CD+68)STEP22sPOKEA,93s 

POKEA+CL,0sNEXT  srem  149 

720  FORA=(CD+22)TO(CD+66)STEP2  2:POKEA,93: 

POKEA+CL,0:NEXT  srem  146 

730  POKECD+88, 109: POKECD+88+CL, 0sPOKECD+8 

9,64s  P0KECD+89+CL , 0  s  POKECD+90 ,125 

srem  94 
740  POKECD+90+CL,0sLF=l:WB=230    : rem  218 
750  El=E:Fl=FsGl=GsHl=HsE=160:F=160:G=160 
:H=0  srem  33 

760  LF=LF+1 s POKESl, WB: POKEVL, 14   srem  168 
770  POKECD+23, Es POKECD+23+CL, H: POKECD+45, 

F: POKECD+45+CL, H; POKECD+67 , G  s  POKECD+6 

7+CL.H  :rem  92 

780  FORB=1TO100 : NEXT : POKEVL , 0  s  POKES  1 , 0 : I F 

LF=0THENRETURN  : rem  106 

790  1 FLF=4THENLF=0  s  E=E1 s  G=G1 : H=H1 s  F=F1 s  GO 

TO770  :rem  69 

800  H=H+3:WB=WB+5:GOTO760         srem  220 
810  POKE198,0sPRINTD$sPRINTBS; :PRINTTAB(3 

)CHRS(28) "KEEP  OR  CHANGE?" :CT=0 

srem  104 
820  PRINTESSPC ( 2 ) CHR$ ( 30 ) " ? "  :  POKESl  ,  Z 

srem  164 
830  FORA=lTO100sNEXT: PRINTE$SPC( 2 ) "  "  :  POK 

ESl,0:FORA=lTO50sNEXT  srem  85 

840  GETH$sIFH$=""THEN820  : rem  103 

850  IFH?="C"ORH$="K"THEN870         srem  3 
860  GOTO820  : rem  113 

870  IFH$="K"THEN900  : rem  46 

880  IFH$="C"THENCT=CT+1;GOSUB500:PT(1)=X: 

ST(l)=GsE{l)=E:F(l)=F:G(l)=G:H(l)=H 

: rem  152 
890  PRINTJWSSPC(2)AKS  srem  12 

900  PRINTE$SPC(6)"?":FORA=1TO100:NEXT:PRI 

NTE$SPC(6)"  " :FORA=1TO50:NEXT  srem  46 
910  GETI$:IF1$=""THEN900  srem  102 

920  IFI$="C"ORIS="K"THEN940         srem  1 
930  GOTO900  -rem  110 

940  IFIS="K"THEN970  srem  52 

950  CT=CT+lsGOSUB500sPT{2)=XsST(2)=GsE(2) 

=EsF(2)=FsG(2)=GsH(2)=H       srem  174 
960  PRINTJW$SPC(6)AK?  srem  14 

970  PRINTESSPC( 10) " ? " s FORA=1TO100 sNEXTs  PR 

INTE$SPC(10)"  "sFORA=lTO50sNEXT 

srem    139 
980    GETJ?:IFJ$=""THEN970  srem    118 

990    IFJ$="C"ORJ$="K"THEN1020  srem   48 

1000   GOTO970  -rem   154 

1020    IFJS="K"THEN1050  srem    129 

1030    CT=CT+1 s  GOSUB500  s  PT { 3 ) =X s  ST { 3 ) =G : E ( 3 
)=EsF{3)=FsG(3)=GjH(3)=H  srem   218 
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1040 
1050 


1060 
1070 
1080 
1090 
1100 

1110 

1120 


1130 
1140 
1150 
1160 
1170 


1180 
1500 
1510 
1520 
1530 

1540 

1550 
1560 

2000 
2010 
2020 

2110 

2120 

2130 
2160 
2170 
2100 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 


PRINTJW5SPC ( 10 ) AK$ : FORA=1TO1000 : NEXT 
:IFCT=3THEN1500  : rem  209 

PRINTE$SPC(14) "?" : FO RA=1TQ 100: NEXT :P 
RINTE$SPC  ( 14  )  "  "  :FORA=1TO50 :NEXT 

:rem  185 
GETKS:IFK$=""THEN1050  :  rem  196 
IFK?="K"ORK$="C"THEN1090  : rem  95 
GOTO1050  :rem  200 

IFK$="K"THEN1120  : rem  135 

CT=CT+1 :GOSUB500: PT( 4 ) =X:ST{4 )=G : E(4 
)=E:F(4)=F:G(4)=G:H(4)=H  : rem  222 
PRINTJW$SPC(14)AK?:IFCT=3THEtJ1500 

: rem  38 
PRINTE$SPC(  18)  '*?"  :FORA=1TO100:NEXT:P 
RINTE?SPC( L8) "  "  :FORA  =  1TO50 :NEXT 

:rem  191 
GETL$:IFL$  =  ""THENU20  : rem  194 
IFL$="C"ORL$="K"THEN1160  : rem  93 
GOTO1120  :rem  196 

IFL$="K"THEN1500  : rem  136 

CT=CT+1 : GOSUB500 i CD=WK+2 1 5 : PT ( 5 ) =X  :  S 
T ( 5  )  =G ; E ( 5 ) =E : F ( 5 ) =F : G { 5 ) =G ; H ( 5 ) =H 

: rem  78 
PRINTJW$SPC{18)AK?  : rem  108 

FORTV=1TO5:IFTV>5THEN1560  : rem  126 
IFE(TV)>0THEN1530  : rem  252 

NEXTTV:IFTV=5THEN1560  : rem  145 
E=E(TV) :F=F{TV) :G=G{TV) :H=H(TV) 

:rem  139 
CD=WK+195+TV*4:IFCD>WK+215THEN1560 

: rem  27 
GOSUB700:IFTV<5THENNKXTTV  s rem  222 
FORA=lTO5:E(A)=0sF(A)=0sG(A)«0:H(A)= 
0:NEXTA  : rem  242 

PRINTDSF? : F0RA=1T05 : POKE ( 101 5+A ) , PT ( 
A) :NEXT  : rem  145 

FORA=1TO5:POKE(1015+A),PT{A):NEXT 

:rem  249 
SYS908:FORA=1TO5:PT(A)=PEEK{{1015+A) 
) :NEXT  :rem  44 

I FPT ( 5 ) -PT ( 4 ) =1THENIFPT ( 4 ) -PT ( 3 ) = 1TH 
ENI FPT ( 3 ) -PT ( 2 ) =1THENI FPT ( 2 ) -PT ( 1 ) =1 
THENSS=1  :rem  124 

IFST ( 1 )=ST ( 2  JTHENIFST { 2 }=ST ( 3 )THENIF 
ST(3)=ST{4)THENIFST{4)=ST(5)THENFL=1 

:  rem  9 
SYS960 : XE=PEEK (1011): ZQ=PEEK {1012) 

: rem  13 
IFPT(1)=PT{2)THENIFPT(1)=PT(3)THEHIF 
PT{1 )=PT(4 )THENFR=1  : rem  170 

IFPT{5)=PT{4)THENIFPT(5)=PT(3)THENIF 
PT(5)=PT{2)THENFR=1  :  rem  183 

IFSS=ITHENIFFL=1THENIFPT(5)=14THENSC 

=SC+249:Z$=G$(10) :GOTO3030  : rem  99 
IFSS=1THENIFFL=1THENSC=SC+99:Z$=G$(4 
)  :GOTO3030  : 

IFFR=1THENSC=SC+19:Z$=G?( 12) : 
0  I 

IFZQ=4THENIFFR<>lTHENSC=SC+9; 
3):GOTO3030  : 

IFFL=lTHENSC=SC+7 ;Z$=G?( 14} 


rem  128 
GOTO303 
rem  211 

:Z?=G$(1 

:rem  187 
GOTO3030 
: rem  158 
GOTO3030 
: rem  1 77 
GOTO3030 
: rem  185 
IFZQ=2THENSC=SC+2 :  Z$=G$ { 17 ) :GOTO3030 

: rem  185 
IFZQ=1ANDXE>=11THENZ$=G$(18) :GOTO303 
0  :rem  7 


2270 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 
4030 

4040 

4050 

5000 

5050 

6000 

6010 

6020 

6030 
6040 

6050 


6060 
6070 


6080 
6090 

6100 


SC=SC-1:Z$="{6  SPACES] LOUSY  HAND! 
{5  SPACES) ":QP=1  : rem  236 

GOSUB5050: PRINTCHR$ ( 156 ) : IFQP=1THENP 
RINTCHRS(144)  : rem  68 

FORA=1TO5:PRINTB$;Z$:UA=20:FORB=135T 
0243STEP12  :rem  158 

IFQP=1THENF0RB=243T0135STEP-12:UA=32 

: rem  14 
POKEVL, 15 : P0KES1 , Bi POKES2 , B : F0RC=1T0 
UA:NEXT:NEXT  : rem  224 

POKEVL, 0 : P0KES1 , 0 : P0KES2 , 0 : PRINTD$ : F 
ORD=1TQ100:NEXT:NEXT  : rem  178 
FORX=1TO13:FORY=1TO4:J%(X,Y)=0:NEXT: 
NEXT:K=0  : rem  102 

F0RA=1T05 : PT ( A ) =0 : ST{ A ) =0 : NEXT : SS=0 : 
FL=0:ZQ=0:FR=0;K=0:XE=0:QP=0  : rem  5 
FORA=1TO1500:NEXT:GOTO350  :rem  71 
P0KE36879 , 120 : PRINT" {CLRJ "LEFT? {N? , 1 
1)SPC(8)"{BLKHRVS}HAND";HD  :  rem  59 
D=231 : POKEVL, 15 :F0RA=1T03 : FORB=120TO 
127:POKE36879,B:POKES1,D  : rem  215 
POKES2,D:FORC=1TO40:NEXT:D=D+1:NEXT: 
NEXT: POKES 1,0: POKES 2, 0 : RETURN: rem  57 
FORA=1TO3:FORB=200TO207:POKE36879,B: 
FORC=1TO50: NEXT: NEXT: NEXT :POKE36879, 
200: RETURN  : rem  30 

PRINTLEFT? ( N? , 3 ) SPC ( 4 ) CHR$ ( 28 ) CHR$ { 1 
8) "WINNINGS: "CHR$ ( 146 ) "$" j SC; " 
{2  SPACES) ": RETURN  : rem  84 

DATA160, 5, 162, 22, 169, 160, 157, 255, 15, 
157, 227, 17, 136, 208, 3, 32, 131, 3, 152, 15 
7,255,147  :rem  188 

DATA157,227,149,202,208,2  32, 160, 5, 16 
2,220, 169,160,157,22,16,157,43,16, 15 
7,8,17,157  :rem  245 

DATA29, 17, 136,208,3,32,131,3,152,  157 
,22,148,157,43,148,157,8,149,157,29, 
149,32,134  :rem  254 

DATA3, 203, 218,96, 160, 7 , 96 , 138 , 56  ,  23  3 
,22,170,96,162  : rem  216 

DATA4.142, 246,3,174,246,3, L60,0, 140, 
247,3, 185,249,3,217,248,3,176,16,72, 
185,248  :rem  98 

DATA3,153,249, 3, 104,153,248,3, 169,1, 
141,247, 3,200, 202,208,228, 173,247,3, 
240,5,206  :rem  171 

DATA246,3,208,210,96, 162  : rem  198 
DATA  0, 142, 245, 3, 172, 245, 3, 185,248,3 
,217,249,3,208,4,232,141,243,3,200,1 
92,4,208  :rem  74 

DATA242,238,245,3, 173,245, 3,201,4, 20 
8,226,142,244,3,96  : rem  138 

DATA836, 29,839, 31, 849, 149,852, 151,86 
4,30,867, 30,870,31,873, 31,883,150,88 
6,150,889  :rem  26 

DATA151,892,151  : rem  10 


IFSS=1THENSC=SC+4:Z$=G$(15) 
IFZQ=3THENSC=SC+3 : Z?=G? ( 16 ) 


Program  2:  Poker— 64  Version 

20  POKE53281,1:POKE53280,14  : PRINT" {CLR) " 

; FORA=908TO998 : READB : POKEA , B : NEXT 

: rem  6  5 
30  WK=1024  : rem  9 

40  CL=54272  : rem  52 

60  niMJ%(13,4) :DIMG${20) : WA=CL+4: VL=CL+24 

:D1=0:SC=0:HD=0  : rem  184 

65  FOR  T=CLTOCL+24: POKET,0:NEXT   : rem  199 
70  G$(4)="{10  SPACES}***  POKER{2  SPACES}2 

56  ***{2  SPACES}"  :rem  242 

80  GS{5)="{7  SPACES )IT'S  YOU  AGAINST  THE 

{SPACE} 64"  :rem  64 
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100  G$(9)="fl0  SPACES }YOU  WIN  AS  FOLLOWS: 
"sG?(10)="{ll  SPACES  3  ROYAL  FLUSH-S250 

srem  175 

120  G?(ll)="{9  SPACES) STRAIGHT  FLUSH-$100 
"  :G$(12)  =  "{ll  SPACES}4  OF  A  KIND-$20" 

:rem  185 

140  G$(13)="(l2  SPACESjFULL  HOUSE-S10 

{2  SPACES) ":G$ (14)=" {15  SPACES ) FLUSH- 
SB"  :rem  134 

160  G?{15)="{13  SPACES }STRAIGHT-$5 " :G$ (16 
)=" {12  SPACES) 3  OF  A  KIND-$4" s rem  184 

180  G$(17)="{14  SPACES}2  PAIR-$3 " :G$ (18 )= 
"(9  SPACES) PAIR,  JACKS  &  UP-S1" 

: rem  17 

200  G$(20)="{10  SPACES) EACH  HAND  COSTS  $1 
.  "sN$="  {HOME) {26  DOWN)"       : rem  102 

210  B$=LEFT${N$,20)sJW?=LEFT$(N$,10) 

:rem  177 

2  20  A=4 : MM=60 : G=10 : PRINT " [ BLK ) " : Dl =0 :  POKE 
CL,MMsFOKECL+l,MMsPOKECL+4,  17  s  rem  86 

230  FORB=1TO40 : PRINTLEFT$ (N$ , A) RIGHT$ (G$ ( 
A),B)  :rem  215 

234  IFLEFT$(RIGHT$(G${A),B),2)=" 

{2  SPACES }"THEN240  : rem  202 

235  POKEVL, 9  s  POKECL+5 , 17  3  POKECL+6, 129 s POK 
EVL,0  -rem  68 

240  NEXT: FOR  I=1T0G :NEXT:FORB=lTODl ;NEXT: 

IFA=20THENPOKECL+4, 16;GOTO310   : rem  1 
250  IFA=18THENA=20:MM=90:PRINT"{RED}":G=3 

0:D1=300:GOTO  300  : rem  99 

260  IFA>BANDA<18THENA=A+1  :rem  225 
270  IFA=7THENA=9s PRINT" {BLU}"sG=40sDl=200 

:rem  141 
280  IFA=5THENGOSUB5000 : FORA=1TO200 :NEXT: A 

=9sPRINT"{BLU}"sG=40sDl=200   : rem  137 
290  IFA=4THENA=5s PRINT" {RED}" :MM=90 

srem  95 
300  GOTO230  :rem  97 

3 1 0  G$ { 4 )  =  " " : G $ { 5 )  =  " " : GS ( 7 )  =  " " : G$ ( 10 )  =  " " : 

G?{20)=""  :rem  16 

320  AK?="{2  DOWN}{GRN}£2  LEFT)(RVS} 

{2  SPACES }[ DOWN }{ LEFT} {RVS}[ 2  SPACES] 

{DOWN) [LEFT) {RVS) {2  SPACES }": D$=B$+" 

{40  SPACES}"  :rem  134 

340  E$=LEFT$(N$,16):F$=ES+"{21  SPACES }":X 

=RND(-TI)  :rera  105 

350  HD=HD+l:GOSUB4030sPOKE53281, 1  sPRINTC 

HR$(147) sGOSUB  5100  : rem  200 

360  PR.INTLEFT$(N$,5)SPC(13) "(SLU)HIT 

{RVS}K{OFF}  TO  KEEP"  : rem  51 

370  PRINTLEFTS(N?,7)SPC(12)"HIT  {RVS}C 

{OFF}  TO  CHANGE" :GOSUB5050     : rem  19 
500  X=INT(RND(l)*13)+lsY=INT(RND(l)*4)+ls 

IFJ%(X,Y)=1THEN500  : rem  122 

510  J%(X,Y)=lsK=K+l  srem  10 

520  E=32sIFY=lTHENG=88sH=0  srem  32 
530  IFY=2THENG=83:H=2  srem  254 

540  IFY=3THENG=65:H=0  srem  254 

550  IFY=4THENG=90sH=2  srem  0 

560  IFX=10THENE=48:F=49sGOTO620  srem  114 
570  IFX>lANDX<10THENF=X+48  srem  91 
580  IFX=11THENF=10  srem  54 

590  IFX=12THENF=17  srem  63 

600  IFX=13THENF=11  srem  50 

610  IFX=lTHENX=14sF=l  srem  3 

620  IFK>5THENRETURN  srem  244 

630  IFX=1THENX=14:F=1  :rem  5 

640  IFK=lTHENCD=WK+397:L=lsPT{l)=XsST(l)= 

G  srem  21 

650  IFK=2THENCD=WK+405  3 L=9  : PT { 2 ) =X  s  ST ( 2 )  = 

G  srem  23 


660 

670 

675 
680 

690 
700 
701 

703 
704 
705 
706 

740 
750 

760 

770 

775 

777 

778 

779 

780 

790 

800 
810 

820 

830 

840 
850 
860 
870 
880 


890 
900 


910 
920 
930 
940 
950 

960 
970 


980 

990 

1000 

1020 

1030 


IFK=3THENCD=WK+413sL=17sPT{3)=XsST(3) 
=G  s  rem  73 

IFK=4THENCD=WK+421 :L=25 s PT{ 4 ) =X s ST (4  ) 
=G  s  rem  75 

POKE  CL+1 ,15  ; rem  78 

IFK=5THENCD=WK+429sL=33 ; PT ( 5 )=X:ST(5 ) 
=GsGOSUB700s POKEVL, 15 : Z=250: GOTO810 

: rem  184 
GOSUB700:GOTO500  : rem  190 

PRINT" {HOME }{ 10  DOWN}";        srem  96 
PRINT  TAB  ( L  )  "  {  BLK  H  Aj  *  *  *  *  gj  S  3  " 

PRINTTAB(L) "-[4  SPACES)-" 
PRINTTAB(L) "£{4  SPACES]-" 
PRINTTAB(L)  "-(4  SPACEST-" 
PRINTTAB(L)"iZl****|Xi" 


rem 
rem 
rem 
rem 
s  rem 


203 
153 
154 
155 
76 


LF=lsWB=5  5  srem  21 

El=E:Fl=F:Gl=G:Hl=HsE=160:F=160sG=160 
sH=0  srem  33 

POKE  VL,8sLF=LF+l s  POKECL+1 , WBs  POKECL, 
WBsPOKECL+4, 17  srem  138 

POKE  CD+46,EsP0KE  CD+46+CL, Hi POKECD+4 


5,FsPOKECD+45+CL,H 


rem  181 


POKE  CD+e6,G:POKECD+06+CL,H:POKECD+87 


,G:POKE  CD+87+CL,H 


srem  209 


IF  F<>  49  THENPOKE  CD+128 , F : FOKECD+CL 
+128, H  srem  98 

IF  F<>  49  THEN  POKE  CD+127 , E: POKE  CD+ 
CL+127,H:GOTO780  srem  114 

F=49sPOKE  CD+127,FsPOKECD+127+CL,HsPO 
KE  CD  +  128,  43s  POKE  CD  +  128+CL,  II:  rem  211 
FORB=1TO100:NEXT: POKECL+4, 16s IFLF=0TH 
ENRETURN  srem  164 

IFLF=4THENLF=0:E=E1 :G=G1 :H=H1 sF=Fl:GO 
TO770  srem  69 

H=H+8sWB=WB+5sGOTO760  srem  22  5 
POKE198,0sPRINTD$sPRINTB$; sPRINTTAB(l 
3)CHR?(28)"KEEP  OR  CHANGE?" :CT=0 

s  rem  153 
PRINTE$SPC{4)CHR$(30)"?"sPOKECL+l,ZsP 
OKECL.Z  srem  139 

FORA=lTO100sNEXTsPRINTE$SPC(4)"  " s POK 
ECL+4,16sFORA=lTO50sNEXT  srem  248 
GETH?sIFHS=""THEN820  srem  103 

IFH$="C"ORH$="K"THEN870  srem  3 
GOTOB20  srem  113 

IFH?="K"THEN900  s rem  46 

IFHS  =  "C"THENCT=CT  +  1 sGOSUB500s  PT(1 )=Xs 
ST(l)=GsE(l)=EsF(l)=FsG(l)=GsH{l)=H 

s  rem  152 

PRINTJW$SPC{4)AK$  : rem  14 

PRINTESSPC( 12) "?" sFORA=lTO100sNEXTs  PR 

INTE$SPC( 12)"  " sFORA=lTO50sNEXT 

s  rem  136 

GETI?s IFI?=""THEN900 

IFI$="C"ORI?="K"THEN940 

GOTO900 

IFI$="K"THEN970 

CT=CT+1 ; GOSUB500  s  PT( 2 )=X 

=E  s  F ( 2 ) =F s  G ( 2 ) =G s  H ( 2 ) =H 

PRINTJW?SPC{ 12)AK$ 

PRINTE?SPC(20) "?":FORA=1TO100:NEXT 

INTE$SPC(20)"  "sFORA=lTO50sNEXT 

s  rem  141 

GETJ$!lFJ$=""THEN970  ; rem  118 

IFJ?="C"ORJ$="K"THEN1020       : rem  48 
GOTO970  :rem  154 

IFJ$="K"THEN1050  srem 

CT=CT+1 s GOSUB500 s  PT ( 3 ) =X : ST { 3 ) =G 
)=E:F(3)=FsG(3)=GsH(3)=H     srem 
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srem  102 

t  rem  1 

srem  110 

srem  52 

ST ( 2  }  =G 3  E { 2  ) 

: rem  174 

srem  59 

PR 


129 

:E(3 

218 


175 


1040 


1050 


1060 
1070 
1080 
1090 
1100 

1110 


PRINTJW$SPC ( 20 ) AKS : FORA=1TO1000  tNEXT 
:IFCT=3THEN1500  : rem   210 

PSINTE$SPC( 28) "?" tFORA=lTO100:NEXT:P 
RINTE$SPC{28) "    " : FORA=1TO50 :NEXT 

: rem   195 
GETK$ : IFK$=" "THEN1050 
IFK$="K"ORK$="C"THEN1090 
GOTO1050 
IPK$="K"THENU20 
CT=CT+1 : GOSUB500 : PT ( 4 } =X 
) =E : F ( 4 ) =F ; G ( 4 ) =G  :  H { 4  )  =H 
PRINTJW$SPCC28)AK$:IFCT 


: rem  196 

trem  95 

: rem  200 

: rem  135 

ST(4)=G:E(4 

:rem  22  2 

3THEN1500 


1120  PRINTE$SPC(36) 
RINTE$SPC(36)" 


1550 
1560 


: rem  43 
'?" sFORA=lTO100:NEXT:P 
":FQRA=1TO50:NEXT 

s rem  191 
1130  GETL$:IFL$=" "THENI 120  : rem  194 
1140  IFLS="C"ORL$="K"THEN1160  ; rem  93 
1150  GOTO1120  :rem  196 

1160  IFL$="K*'THEN1500  :  rem  136 

1170  CT=CT+1 : GOSUB500 i CD-WK+2 1 5 : PT ( 5 ) =X :S 

T  {  5  )  =G :  E  (  5  )  =E :  F  (  5  )  =F ;  G  (  5  )  =G  j  H  (  5  )  =H 

: rem  78 
1180  PRINTJW$SPC(36)AK$  : rem  108 

1500  FORTV=1TO5:IFTV>5THEN1560    s rem  126 
1510  IFE(TV)>0THEN1530  : rem  252 

1520  NEXTTVsIFTV=5THEN1560        : rem  145 
1530  E=E(TV) :F=F(TV) :G=G(TV) :H=H(TV) 

s rem  139 
1540  CD=WK+389+TV*8tIFCD>WK+429THEN1560 

:rem  43 

GOSUB740:1FTV<5THENNEXTTV    : rem  2  26 

FORA=lTO5tE(A)=0:F{A)=0:G(A)=0:H(A)= 

0;NEXTA  : rem  242 

2000  PRINTDSF$ :F0RA=1T05 : POKE ( 1015+A} , PT ( 

A) sNEXT  : rem  145 

2010  FORA=1T05:POKE( 1015+A) , PT(A) :NEXT 

: rem  249 
2020  SYS908:FORA=1TO5:PT(A)=PEEK( ( 1015+A) 

)  :NEXT  trem  44 

2110  YY=0 : IFPT ( 5 ) -PT ( 4 )  =1THENIFPT ( 4 ) -PT ( 3 

)=1THENYY=1  :rem  147 

2115  XFYY=1THENIFPT{3)-PT(2)=1THENIFPT(2) 

-PT(1)=1THENSS=1  trem  9 

2120  IFST ( 1 ) =ST ( 2 ) THENI FST ( 2 )=ST ( 3  JTHENIF 

ST ( 3 ) =ST ( 4 ) THENI FST { 4 ) =  ST ( 5 )THENFL=1 

:  rem  9 
2130  SYS960:XE=PEEK(1011 ) I ZQ=PEEK( 1012 ) 

: rem  13 
2160  IFPT(1)=PT(2)THENIFPT(1)=PT(3)THENIF 

PT(1)=PT(4)THENFR=1  : rem  170 

2170  IFPT(S}=PT{4)THENIFPT(5)=PT(3)THENIF 

PT(5)=PT(2)THENFR=1  : rem  183 

2180  IFSS  =  1THENIFFL=1THENIFPT(5H14THENSC 

=SC+249:Z$=G$( 10) sCOTO3030    : rem  99 
2190  IFSS=lTHENIFFL=lTHENSC=SC+99tZ$=G$(4 

):GOTO3030 

IFFR=1THENSC=SC+19:Z$=G${12): 

0  : 

IFZQ=4THENIFFRolTHENSC=SC+9; 

3):GOTO3030  j 

IFFL=lTHENSC=SC+7 : ZS=G?  (  14 ) 


: rem  128 

)  :GOTO303 

: rem  211 

IFZQ=4THENIFFR<> lTHENSC=SC+9 : Z?=G$ ( 1 

:  rem  187 
IFFL=lTHENSC=SC+7 :ZS=G?{ 14) ;GOTO3030 

: rem  158 
:Z$=GS{15):GOTO3030 
; rem  177 
:Z$=G$ ( 16) :GOTO3030 
:rem  185 
;Z$=G$(17):GOTO3030 
: rem  185 
IFZQ=1ANDXE>=11THENZ$=GS ( 18) :GOTO303 
0  : rem  7 
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2230  IFSS=lTHENSC=SC+4 
2240  IFZQ=3THENSC=SC+3 
2250  IFZQ=2THENSC=SC+2 
2260 


2270 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 
4030 

4040 

4050 

5000 


5010 
5050 


5060 
5100 

5110 

5120 

5130 

5140 
6040 


6045 
6050 


6055 
6060 
6070 


6075 
6080 

6090 


6100 


SC=SC-1:Z?  =  "{14  SPACES} LOUSY  HAND  11 
[4  SPACES} ":QP=1  : rem  13 

GOSUB5050:PRINTCHR$(156) sIFQP=lTHENP 
RINTCHR$(144)  : rem  60 

FORA=lTO5tPRINTB$;Z$:UA=20:FORB=135T 
0243STEP12  : rem  158 

IFQP=lTHENFORB=243T013  5STEP-12tUA=32 

: rem  14 
POKECL+4, 17:P0KECL+1, Bi  POKECL, BtFORC 
=1T0UA:NEXT:NEXT  : rem  159 

POKECL+4, 16 :PRINTD$:FQRD=1TO100: NEXT 
tNEXT  :rem  162 

FORX=lTO13tFORY=lTO4:J%(X,Y}=0tNEXT: 
NEXT:K=0  trem  102 

F0RA=1T05 : PT ( A ) =0 : ST ( A ) =0 : NEXT : SS=0 : 
FL=0:ZQ=0:FR=0;K=0:XE=0:QP=0  : rem  5 
FQRA=lTO1500iNEXT:GOTO350  trem  71 
POKE53281, 1:PRINT"{CLR} "LEFTS (N$, 11) 
SPC(16)"{BLK}  [RVS3HAND",*HD  :  rem  250 
D-231 :FORA=lTO3tFORB=0TO15t POKE53  280 
,B: POKECL+1, DtPOKECL+21 ,D  trem  241 
FORC  =  1TO40 : NEXT  t  NEXT  t  NEXT : POKE53280 , 
12: RETURN  trem  231 

FORA-=1TO3:FORB=0  TO  15  : POKE53280, B: 
FORC=1TO50 : NEXT : NEXT  t  NEXT ; POKE 5  3  280 , 
14  trem  36 

RETURN  trem  166 

PRINTLEFTS (N$ , 3 )SPC (13 )CHR? ( 28 )CHR$ ( 
18)" WINNINGS t "CHR$(146) " $ " ; SC r " 
{2  SPACES}"  trem  106 

RETURN  trem  171 

2=ltF0R  T=1024  TO  1063 : POKET+54272 , T 
-1023:POKET,160:NEXT  T  trem  32 
FOR  T=1024  TO  2024-40  STEP  40:Z=Z+1; 
POKET+54272 , ZtPOKET, 160  trem  27 
POKET+54311,Z:POKET+39,160:NEXTT 

trem  222 
FQRT=1984  TO  2023 t POKET+54272, T-1984 
:P0KET, 160tNEXT  T  trem  61 

RETURN  trem  170 

DATA162,4,142,246,3,174,246,3,160,0, 
140,247,3,185,249,3,217,248,3,176 

trem  107 
DATA  16,72,185,248  s rem  121 

DATA3,153,249,3,104, 153,248,3, 169, 1, 
141,247,3,200,202, 208,228,173 

srem  156 
DATA  247,3,240,5,206,246  trem  149 
DATA3, 208,210,96  trem  57 

DATA162,0,142,245,3,172,245,3,185,24 
8,3,217,249,3,208,4,232,141,243 

:  rem  4 
DATA  3,200,192,4,208  : rem  203 
DATA242,238,245,3, 173,245,3,201,4,20 
3,226,142,244,3,96  trem  138 

DATA836, 29, 839, 31, 849, 149, 852, 15 1,86 
4,30,867,30,870,31,873,31,883, 150,88 
6  trem  131 

DATA  150,889,151,892,151     trem  161 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTE!'s  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


MLX  For  VIC  And  64 


(Article  on  page  145.) 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTERS  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 


Program  1 :  mlx— 64  version 

100  PRINT" {CLRj {CYN} " ;CHR$ ( 142 ) ;CHR$ ( 8) ; t 
POKE53281,liPOKE53280,l        : rem  73 

101  POKE  788, 52 t REM  DISABLE  RUN/STOP 

:rem  119 
110  PRINT"  fRVS}  [40  SPACES}";  sreni  176 
120  PRINT" (RVSj [15  SPACES} [RIGHT} (OFF) 

E*5|£(RVS}  [RIGHT}  [RIGHT]  {2  SPACES} 

E  * ITOFF } | *  U { RVS } £ [ RVS } 

[13  SPACES)""";  s  rem  250 

130  PRINT"{RVS} [15  SPACES}[RIGHT}  £g| 

[RIGHT}  {2  RIGHT}  {OFF}£[RVS}f l*i 

{0FF}E*^[RVS}[13  SPACEST";  irem  35 
140  PRINT" {RVS} {40  SPACES}"  : rem  120 
200  PRINT" {2  DOWN} {PUR} {BLK} {3  SPACESjA  F 

AILSAFE  MACHINE  LANGUAGE  EDITOR 

{5  DOWN}"  :rem  130 

210  PRINT"g53{2  UP) STARTING  ADDRESS? 

{8  SPACES] I  {9  LEFT}";  : rem  143 

215  INPUTS:F=2-FsC$=CHR$(31+119*F:rem  125 

220  IFS<2  56OR(S>40960ANDS<49152}ORS>-5  3247 

THENGOSUB3000:GOTO210  : rem  235 
225  PRINT:PRINTiPRINT  : rem  180 

230  PRINT"|53[2  UP} ENDING  ADDRESS? 

{8  SPACES) [9  LEFT}"; : INPUTE tF=l-F:C$= 

CHR$(31+119*F)  :rem  20 

240  IFE<2560R( E> 40960ANDE<491 52 )ORE> 53247 

THENGOSUB3000;GOTO230  :  rem  183 
250  IFE<STHENPRINTCS; "{ RVS} ENDING  <  START 

{2  SPACES}" :GOSUB1000:GOTO  230 

:rem  176 
260  PRINT: PRINT: PRINT  : rem  179 

300  PRINT" [CLR] ";CHR$(14) : AD=S : POKEV+21 , 0 

:rem  225 
310  PRINTRIGHT? ( "0000"+MID? ( STR$ {AD} , 2) , 5 

);":"; :F0RJ=1T06  : rem  234 

320  GOSUB570:IFN=-1THENJ=J+N:GOTO320 

;rem  228 
390  IFN=-211THEN  710  : rem  62 

400  IFN=-204THEN  790  : rem  64 

410  IFN=-206THENPRINT: INPUT" {DOWNjENTER  N 

EW  ADDRESS" ; ZZ  trem  44 

415  IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

(RVS)OUT  OF  RANGE" sGOSUBl 000 :G0T04 10 

:rem  225 
417  IFN=-206THENAD=ZZ: PRINT: GOTO310 

:rem  238 
420  IF  NO-196  THEN  480  :  rem  133 

430  PRINT: INPUT" DISPLAY: FROM" ;F: PRINT, "TO 

"; tINPUTT  :rem  2  34 

440  IFF<SORF>EORT<SORTXETHENPRINT"AT  LEAS 

T";S;"{LEFT] ,  NOT  MORE  THAN" ;E:GOT043 

0  :rem    159 

450    FORI=FTOTSTEP6:PRINTjPRINTRIGHT$("000 

0"+MID?(STR$(l),2),5);";";  :rem   30 
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451 

460 

470 

480 
490 
500 

510 

515 
520 

530 
540 

550 
560 
570 
580 
581 
585 

590 
600 
610 

620 
630 
640 
650 

660 
670 
680 
690 

691 
695 

700 

710 

720 
730 

740 

750 

760 

762 

763 

765 

766 

770 

775 
780 

781 
790 


FORK=0TO5 : N=PEEK { I+K ) : PRINTRIGHT? ( " 00 
"+MID$(STR$(N),2),3);","r  :  rem  66 
GETA$:IFA$>""THENPRINT:  PRINT  :GOTO310 

:rem  25 
NEXTK:PRINTCHRS{20) : :NEXTI : PRINT: PRIN 
T:GOTO310  :rem  50 

IFN<0  THEN  PRINT:GOTO310  : rem  168 
A{j}=N;NEXTJ  : rem  199 

CKSUM=AD-INT{AD/256)*256:F0RI=1T06:CK 
SUM=(CKSUM+A( I) )AND255:NEXT  : rem  200 
PRINTCHR$(18) ; : GOSUB570 : PRINTCHR$ { 20 ) 

:rem  234 
IFN=CKSUMTHEN530  : rem  2  55 

PRINT:  PRINTLINE  ENTERED  WRONG  :  RE-E 
NTER" :PRINT:GOSUB1000:GOTO310:rem  176 
GOSUB2000  -rem   218 

FORI=1T06 : POKEAD+I-1 , h{ I ) :NEXT: POKE 54 


272,0:POKE54273,0 

AD=AD+6:IF  AD<E  THEN  310 

GOTO  710 

N=0tZ=0 

PRINT" E+3"; 

GETA$ : IFA$=" "THEN581 

PRINTCHR? ( 20 ) ; : A=ASC ( A$ ) 

ORA=32THEN670 

IFA>128THENN=-A: RETURN 

IFA<>20  THEN  630 

GOSUB690 : IFI=1ANDT=44THENN=-1 

[LEFT)  {LEFT]"; :GOTO690 

GOTO 570 

IFA<480RA>  57THEN580 

PRINTAS; :N=N*10+A-48 

1FN>255  THEN  A=20 


:rem  227 
: rem  212 
:rem  108 

jrem  88 
:rem  79 

:  rem  95 

IFA=130RA=44 

:rem  229 

:rem  137 

:rem  10 
: PRINT" 
; rem  172 
:rem  109 
:rem  105 
:rem  106 


GOSUB1000:GOTO600 

:rem  229 
Z=Z+liIF2<3THEN580  :rem  71 

IFZ=0THENGOSUB1000:GQTO570    :rem  114 
PRINT", ";: RETURN  : rem  240 

S%=PEEK(209)+256*PEEK(210)+PEEK(211) 

:rem  149 
F0RI=1T03(T=PEEK(S%-I)  i rem  67 
IFT<>44ANDT<>58THENPOKES%-I, 32: NEXT 

:rern  205 
PRINTLEFT$ { " ( 3  LEFT } " , 1-1 ) ; : RETURN 

:rem  7 
PRINT" [CLRj [RVS]***  SAVE  ***{3  DOWN]" 

:rem  236 

INPUT" (DOWN)  FILENAME" ; F$     : rem  228 

PRINT:  PRINT"  {"2"  DOWN)  {  RVs)t[OFF)  APE  OR 

[rvs)d(OFF}ISK:  (T/d) "       :rem  228 

GETA? : IFA$  <> "T"ANDA$  <> "D" THEN 740 

:rem  36 
DV=1-7*(A$="D") :IFDV=8THENF$="0:"+F$ 

:rem  158 
T$=F$ :ZK=PEEK( 53 )+256*PEEK{ 54)-LEN(T? 
) :POKE782,ZK/256  :rem  3 

POKE781, ZK-PEEK( 782 ) *256 : POKE780,  LEN( 
T$)jSYS65469  :rem  109 

POKE 7 80, 1 : POKE781, DV: POKE 782, 1 :SYS654 
66  :rem  69 

POKE254,S/256:POKE253,S-PEEK(254)*256 
>POKE780,253  srera  12 

POKE782,E/256:POKE781,E-PEEK(782)*256 
:SYS65496  :rem  124 

IF( PEEK{ 783 ) AND1 )OR(ST  AND191 )THEN780 

: rem  111 
PRINT" (DOWN} DONE. ": END  :rem  106 
PRINT" [DOWN J  ERROR  ON  SAVE .  [ 2  SPACES]T 
RY  AGAIN. ":IFDV=1THEN7 20  :  rem  171 
0PEN15,8,15:INPUT#15,E1$,E2$:PRINTE1$ 
;E2$:CLOSE15:GOTO720  :rem  103 
PRINT" [CLR) [RVS}***  LOAD  ***[2  DOWN}" 


:rem  212 

800  INPUT" (2  DOWN}  FILENAME" ;F$   srem  244 

810  PRINT: PRINT" [2  DOWN} [RVS }T[ OFF} APE  OR 

[RVS)D[0FF}ISK:  (T/D) "       .-rem  227 

820  GETA$ i IFA$  <> "T"ANDA$  <> "D"THEN820 

:rem  34 
830  DV=1-7*(AS="D"):IFDV=8THENF$="0:"+F$ 

:rem  157 

840  T$=FS:ZK=PEEK(53)+256*PEEK{54)-LEN(TS 
} :POKE782,ZK/256  :rem  2 

841  P0KE781 , ZK-PEEK{ 782 )*256 : POKE780, LEN( 
T$):SYS65469  : rem  107 

845  POKE780, 1 : POKE781 , DV: POKE782, 1 : SYS654 

66  :rem  70 

850  POKE780,0:SYS65493  : rem  11 

860  IF(PEEK(783)AND1)0R(ST  AND191 JTHEN870 

:rem  111 
865  PRINT" (DOWN) DONE. ":GOT03 10     : rem  96 
870  PRINT" [DOWNjERROR  ON  LOAD. {2  SPACESjT 
RY  AGAIN. [DOWN] " : IFDV=1THEN800 

:rem  172 

880  0PEN15,8,15:INPUT#15,E1?,E2?:PRINTE1$ 

?E2?:CLOSE15:GOTOB00         :rem  102 

1000  REM  BUZZER  : rem  135 

1001  POKE54296,15:POKE54277,45:POKE54278, 
165  :rein  207 

1002  POKE54276, 33: POKE  54273, 6 : POKE54272 , 
5  :rem  42 

1003  FORT=1TO200:NEXT:POKE54276,32:POKE54 
273,0: POKE54272,0: RETURN     :rem  202 

2000  REM  BELL  SOUND  :rem  78 

2001  POKE54296, 15 : POKE54277, 0: POKE54278, 2 
47  :rem  152 

2002  POKE  54276, 17 : POKE54273, 40: POKE54272 
,0  ;rem  86 

2003  FORT=1TO100 : NEXT :POKE54276, 16: RETURN 

:rem  57 

3000  PRINTC$;"[RVS}N0T  ZERO  PAGE  OR  ROM": 

GOTO1000  :rem  89 

Program  2:  mlx— vie  version 

100  PRINT" [CLR] [PUR]";CHR?(142);CHRS{8); 

j rem  181 

101  POKE  788,194:REM  DISABLE  RUN/STOP 

:  rem  174 
110  PRINT" [RVS} (14  SPACES}"  :rem  117 
120  PRINT"[RVS}  {RIGHT}?{0FF}£*JJ£{RVS] 

[RIGHT]  [RIGHT] [2  SPACES} g*3TOFF} 

|*3£[RVS]X[RVS]  "  srem  191 

130  PRINT" {RVS }  [RIGHT}  £G%{ RIGHT] 

[2  RIGHT]  [OFF}£[RVS}££*3[OFF] 

8*1 (RVS}  "  srem  232 

140  PRINT" (RVS] (14  SPACES)"       srem  120 
200  PRINT" (2  DOWN] (PUR) [BLK)A  FAILSAFE  MA 

CHINE": PRINT" LANGUAGE  EDITOR(5  DOWN}" 

:rem  141 
210  PRINT" (BLK) (3  UP} STARTING  ADDRESS": IN 

PUTS:F=1-F:C$=CHR$(31+119*F)   :rem  97 
220  IFS<256ORS>32  767THENGOSUB3000:GOTO210 

:  rem  2 
225  PRINT: PRINT: PRINT:PRINT  :rem  123 
230  PRINT" [BLK] [3  UPjENDING  ADDRESS" : INPU 

TE:F=1-F:C5=CHR${31+119*F)    : rem  158 
240  IFE<256ORE>32767THENGOSUB3000:GOTO230 

:rem  234 
250  IFE<STHENPRINTC?; "{RVS} ENDING  <  START 

{2  SPACES]":GOSUB1000:GOTO  230 

:rem  176 
260  PRINT: PRINT: PRINT  : rem  179 

300  PRINT" (CLR) ";CHR${ 14) :AD=S     :rem  56 
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310  PRINTRIGHT$ ( "0000"+MID$ { STR$ ( AD) ,  2)  ,  5 

);":"; :F0RJ=1T06  :rem234 

320  GOSUB570 : IFN=-1THENJ=J+N : GOTO320 

:rem  228 
390  IFN=-211THEN  710  srem  62 

400  IFN=-204THEN  790  :rem  64 

410  IFN=-206THENPRINT: INPUT" [DOWNJ ENTER  N 

EW  ADDRESS "  ;  ZZ  srem  44 

415  IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

tRVSjOUT  OF  RANGE"sGOSUB1000:GOTO410 

srem  225 
417  IFR=-206THENAD=ZZs PRINT: GOTO310 

srem  238 
420  IF  No-196  THEN  480  :  rem  133 

430  PRINT: INPUT"DISPLAY:FROM" ; F: PRINT, "TO 

"; :INPUTT  :rem  234 

440  IFF<SORF>EORT<SORT>ETHENPRINT"AT  LEAS 

T" jS;"[LEFT},  NOT  MORE  THAN" : E:GOT043 

0  :retn  159 

450  FORI=FTOTSTEP6: PRINT: PRINTRIGHT$ { "000 

0"+MID$(STR$(I},2),5);"j"i     .-rem  30 
455  FORK=0TO5:N=PEEK(l+K) s IFK=3THENPRINTS 

PC  (10)  ;  :rem  34 

457  PRINTRIGHT?{"00"+MID$(STR$(N),2),3) ? " 

, " ;  : rem  157 

460  GETA$:IFA$>""THENPRINTsPRINTsGOTO310 

:rem  25 
470  NEXTK:PRINTCHR$(20) ; :NEXTI : PRINT: PRIN 

T:GOTO310  : rem  50 

480  IFN<0  THEN  PRINT:GOTO310  : rem  168 
490  A(J)=NsNEXTJ  : rem  199 

500  CKSUM=AD-INT(AD/256)*256:F0RI=1T06:CK 

SUM=(CKSQM+A(I) )AND255:NEXT   : rem  200 
510  PRINTCHR? (18); :GOSUB570s PRINTCHR? ( 20) 

: rem  234 
515  IFN=CKSUMTHEN530  : rem  255 

520  PRINT; PRINT"LINE  ENTERED  WRONG": PRINT 

"RE-ENTER": PRINT : GOSUB1000 sGOTO310 

:rem  129 
530  GOSUB2000  :rem  218 

540  FORI=lT06sPOKEAD+I-l,A(I) : NEXT srem  80 
550  AD=AD+6:IF  AD<E  THEN  310  srem  212 
560  GOTO  710  srem  108 

570  N=0sZ=0  srem  88 

580  PRINT" E+3";  srem  79 

581  GETA?:IFA?=""THEN581  srem  95 

585  PRINTCHR? (20) ; sA=ASC(A?) s IFA=130RA=44 


590 
600 
610 

620 
630 
640 
650 

660 
670 
680 
690 

692 
695 

700 

710 

720 


ORA=32THEN670 

IFA>128THENN=-As RETURN 

IFAO20  THEN  630 

GOSUB690 : IFI=1ANDT=44THENN=-1 

{LEFT)  {LEFT}"; SGOTO690 

GOTO 5 70 

IFA<4BORA>  57THEN580 

PRINTA?; :N=N*10+A-48 

IFN>255  THEN  A=20 :GOSUB1000 


rem  229 

rem  137 
srem  10 
PRINT" 
srem  172 
srem  109 
srem  105 
srem  106 
GOTO600 
srem  229 
:rem  71 
:rem  114 
srem  240 


Z=Z+1 : IFZ  <  3THEN580 

IFZ=0THENGOSUB1000 : GOTO570 

PRINT", "f  s RETURN 

S%=PEEK(209)+2  56*PEEK{210)+PEEK(211) 

;rem  149 
F0RI=1T03:T=PEEK(S%-I)  srem  68 
IFT<> 44ANDT < > 58THENPOKES%-1 , 32  s NEXT 

srem  205 
PRINTLEFT$("f3  LEFT]",I-I) ; : RETURN 

srem  7 
PRINT" {CLR) [RVS}***  SAVE  ***[3  DOWN}" 

srem  236 
INPUT" {DOWN}  FILENAME" ;F?     srem  228 


730  PRINT : PRINT" E 2  DOWN} { RVS)T[OFF} APE  OR 
{RVS}D{OFF]lSK:  (T/D)"   ~    srem  228 
740  GETA? : IFA?  <> "T" ANDA?  <> "D"THEN740 

srem  36 
750  DV=1-7*(A$="D") :IFDV=8THENF?="0:"+F$ 

srem  158 

760  T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN{T$ 

):POKE782,ZK/256  : rem  3 

762  POKE781 , ZK-PEEK( 782 ) *256 : POKE780, LEN( 
T?):SYS65469  :rem  109 

763  POKE780, 1 s POKE781, DVs POKE782, 1 SSYS654 
66  srem  69 

765  POKE254,S/256sPOKE253,S-PEEK{254)*256 
:POKE780,253  srem  12 

766  POKE782, E/256: POKE781, E-PEEK( 782)*256 
SSYS65496  srem  124 

770  IF(PEEK(783)AND1)0R{ST  AND191 )THEN780 

srem  111 
775  PRINT" {DOWN} DONE. ": END        ; rem  106 

780  PRINT" {DOWN} ERROR  ON  SAVE. {2  SPACES}T 
RY  AGAIN." sIFDV=lTHEN720      srem  171 

781  OPEN15,8,15sINPUT#15,El?,E2?sPRINTEl? 
;E2$sCLOSE15sGOTO720  srem  103 

782  GOTO720  srem  115 
790  PRINT" {CLR} [RVS}***  LOAD  ***[2  DOWN}" 

srem  212 

800  INPUT" {2  DOWN}  FILENAME" ;F$   srem  244 

810  PRINT: PRINT" {2  DOWN} {RVS }T{OFF} APE  OR 

{RVS}D[0FF}ISK:  (T/D) "       srem  227 

820  GETA?:  IFA$<>  "T"ANDA$o"D"THEN820 

srem  34 
830  DV=1-7*(A$="D") :IFDV=8THENF?="0:"+F? 

srem  157 

840  T?=F?sZK=PEEK(53)+256*PEEK(54)-LEN(T$ 
) sPOKE782,ZK/256  srem  2 

841  POKE781,ZK-PEEK(782)*256sPOKE780,LEN( 
T?) SSYS65469  srem  107 

845  POKE780,1:POKE781,DV:POKE782, 1:SYS654 

66  srem  70 

850  POKE780,0:SYS65493  : rem  11 

860  IF(PEEK{783)AND1)0R(ST  AND191 )THEN870 

srem  111 
865  PRINT" [DOWN} DONE. " :G0T03 10     srem  96 
870  PRINT" {DOWN} ERROR  ON  LOAD. {2  SPACES }T 
RY  AGAIN. {DOWN}" s IFDV=1THEN800 

srem  172 

880  OPEN15.8, 15sINPUT#15,El$,E2?sPRINTEl? 

;E2$:CLOSE15sGOTO800  srem  102 

1000  REM  BUZZER  srem  135 

1001  POKE36878, 15 s POKE36874, 190   srem  206 

1002  FORW=1TO300:NEXTW  srem  117 

1003  POKE36878, 0sPOKE36874, 0SRETURN 

srem  74 

2000  REM  BELL  SOUND  srem  78 

2001  FORW=15TO0STEP-1;POKE36878,W:POKE368 
76,240sNEXTW  :rem  22 

2002  P0KE36876, 0s  RETURN  srem  119 
3000  PRINTC?; " [ RVS } NOT  ZERO  PAGE  OR  ROM": 

GOTO1000  srem  89 


BEFORE  TYPING... 

Before  typing  in  programs,  please  refer  to  "How 
To  Type  COMPUTED  Gazette  Programs,"  "A 
Beginner's  Guide  To  Typing  In  Programs,"  and 
"The  Automatic  Proofreader"  that  appear  before 
the  Program  Listings. 
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E3Jte3l&®&€       S2.97     tape    for 

VIC   20 


uses  joystick,    no  expansions 


TAXI 


DRIVER 

□  EVE  LDPMENT 

S12.97    disk    for 
Commodore   64T,V 

uses    paddles 


VIC  20  and    Commodore   64 
are  trademarks    of 
Commodore    Electronics     Ltd. 

ARK     INNOVATIONS,     INC. 

18133     School    St. 

Box    155 

Amador    City,      ca     95601 


NEWFROM  K?!       » 
EXPANSION  PRODUCTS 


|TM 


FOR  YOUR  VIC  -  201 

For  You  Who  Care  Enough  To  Use  The  Best 


24K  RAM 

•  Single  board  for  all 
RAM  expansion  uses 
only  one  Slol 


■  Low  power  consump- 
tion provides  COOl. 
reliable  operation  and 
extended  product  life 

•  Fully  VIC-20  compali- 
ble 

•  Available  in  art.  16K 
24K  configuralion 

$199.24 


RS-232  CARD 

•  True  HS-232  signal  lev- 
els provide  maximum 
compal  ibility  with 
peripheral  devices 

•  Duel  output  connec- 
tors make  installation 
a  snap 

•  Fully  compatible  wilh 
VIC-20  hardware  and 
software 


S49.32 


MOTHER  BOARD 

•  Adds    4    slots    lo    Ihe 

memory     expansion 
port 

•  Includes  3K  of  RAM 


A  socket  for  a  2764 
EPROM  Modular 
power  supply  to  re- 
duce the  load  on  your 


VIC 


$69.64 


ALL  PRICES  ARE  FOB  SANTA  CLARA 

r4LLITlA1<  COfilrHICE^  P^ODUCti  ,  ilK. 

2565  Scott  Blvd.,  Santa  Clara,  CA  95050 

Phone  (408)  74B-9208 

Gold-plated  contact  fingers  for  long-lasting  solid  connection. 


ALL  PRODUCTS  ARE  SUPPORTED  BY  A  I  YEAH  WAHHANTV 
DEALER  DISTRIBUTOR  INQUIRIES  INVITED 

VIC-20  '»  '  T'i3.mmrh  :ii  Com^odort  Rji  -tit  Machine!.  Inr 


J 


■COMMODORE  .$4~  SOFTWARE! 


Avalon  Hill 

Telengard             (CI16  75  (DIM .50 

B-t  Bomber           (C)1l  68  (DH5  10 

Mirjway  Cam  pal  qn 

(CI"  66 

Nukewar 

(Cin  66 

T»c 

|D)28  00 

Computer 

Foolbali             (CIH.66  (0)15.30 

Flying  Ace 

(CI19.0O 

Stocks  ane  Bonds 

(CI  14.60 

T.C.I  E.                  |C)U.6QID}18.25 

Q-Barl 

39.95 

Beach- Hoed 

(Dl  16.95 

Frantic  Freddy 

(0)28.95 

Brodarbund 

Chopllfler 

(CT)  27.00 

Sea  Fox 

(CT)  27.00 

Serpentina 

(CT)  27.00 

David's  Mldnlghl  Magic 

(0)27.00 

AE 

27,00 

Commodore 

ASSBmbler  64 

(Dl  16.90 

Logo 

(Dl  47.90 

film 

(DI47.90 

Pel  Emulator 

(DM6.90 

Screen  Editor 

(Dl  16  90 

Bonus  Pack 

ID.CM6.90 

CP<M  2  2  0Bersnng 

System 

(CT|69  00 

Super  Expander  V5P 

ICTJ19.50 

Easy  Finance  |1-5) 

ID  119.35 

Easy  Ca  ice* 

[DJ73.75 

The  Manager 

(0)43.00 

Easy  Sen  pi 

(DI43.00 

Easy  Mail  84 

(0)1690 

Easy  Spell  64 

(DI16.90 

Wo rd( Name  Machine 

(D116.9C 

Inlro  to  Basic  ' 

IC118.35 

Gortek  &  Ihe  Microchip 

i     1024.60 

Easy  LoasOn  1  Easy  Qui; 

(D)16.9C 

Music  Machine 

(CT)16.9C 

Codowrner 

(DI47  90 

■  J,-        ■  ■  -  ■* 

- ;    "1    S-*f*Cl> 

-.::'.   HtctntON 

flf^-l   LaHfrV 
».-.a     J 

i  -:-i&«r4 
.'.  ;f--'  •■"•-■ 

(Sort* 

SUrt^fitt 

CMhfftta* 

Dr,g0n  %  &,' 

S'jif  H»yigair 
CenH  nt*H  H 

the-  HOTifr  ACCQunrurl 
L[  i„j    ■.,,,-.  Ltjllpu 

CrMHil  to'mir' 
[>K' . irjn  ryiV*r 

r«3u»hC,l.l 

H&"n»  i  rivalry ■ 


*      . 

I    ►     I 

I 

ifliMHC 
iCT.tftIC 

iCTiJI  « 

d  a  • 

tCTi?*« 

■  •  .4  y 

.CtiJ.11* 


\+ ■     Dun 

-- 
IrMfiirw 


mx  **■ 

fir  •,£»*« 

tor* 

>■-:  tip)  *d"m- 

Cur  l*  r/ Ha 


■   ii  "  ;■'■■■ 


*T«65 

iDCiTOX 

"   1     I 

lOOTM 

i3i?QK 

37  05 

rC»2J  m 

iOi  r]55 

iDi13  55 

iDi?0  30 

it)  CiiV  00 

i&ijr  00 
DC*ilWQ0 

iC'lJT  00 


■     -  a  V       i,'.1!     >.- 

'1: '  •■  >'■     ' 

■.■-':* 
hhW  1*-  ** 

Q '  i.jr.jfl"  •' 

^*"-     -iiixf  »»4.  .- 

Vitrt  P'rJM 

fiovo;a'i"«  .-yng1*? 


I 

.A    , 

tin 

■  DiJC  U 


Irs  commodore 


1541  Di**DrJve 
tS30daLaa«Tte 
Mpsaoi  Prtntac 

16&0  AulQiPOdern 
l702CotOf  Monitor 
1600  Modem 
RS  232  Interface 
3  Port  Expander 
6  Port  Eicpaoder 
64  Prog.  Ref  Guide 


219  96 

239  95 
61  30 

21475 
89  95 

239  95 
55  00 
57  60 
3000 
75.00 
1700 


Dtikwttei 

9ASFS1'*"  SSDDGPak  5  50 

BASF  Soft  Bo*  (10)      23.80 


Joyitichi 
Point  muter 
Point  muter  Pro 
Fire  Control 
WicoCommanOCirt. 
Wtoo**Bfltt" 
Wfco  Red  Bali 


10.95 

16  55 

765 

19.50 
13.50 

20.75 


Adam  Computer 

System 
Adam  Computer 


©hoala 

Koala  Touchiahioi  (DJ79.BS 


Terms  and  urrjermg  inrormaiion 
To  ortfor  call  1-800-527-8698  and  Mnd  cerlilieo  checks,  money  orders  or  personal  cnecM  (allow  2 
weeks  to  clear |  or  uso  your  Visa,  Mastof  Card  or  American  Eaoress  Inside  Texas  call 
1-600-442.&717  Include  12  lor  postage  and  handling  (C  O.O.  orders  aoa  Si  65)  UPS  Blue  uoei  S3. 
Canada  J6  call  lor  shipping  charges  on  Hardware.  Other  countries  include  10%  lof  PSH,  All 
products  laclory  sealed  with  manulaclure's  warranly.  All  reiurns_require  R  A.  ».  Prices  suhjocl  ti 


i  8-5   Sal  9-1  CST 


Oil's  vv*ii 

ioi2i  eda 

Learning  WILeeper 

ID!2i  60l 

Sir ji  Saltwar* 

Turmoil 

ID127  00  1 

Snake  Syte 

(D)27  00  1 

Souish  'Em 

■  Dl23  66  1 

fleet on 

(DI27  OC  1 

Blade/  Black  poole 

1DI27.0C  1 

Type  Aitack 

(DI27.00  1 

Spinnaker 

Face  Maker 

(DJ23.65  1 

Hey  Diddle  Diddle 

tO)20.3C| 

Kindercomp 

(D)20  30 

Snooper  Troops  1 

(0)27.00 

Fracllon  Fever 

(D123.65 

Amazing  Thin 

(DI27  00 

Alphabet  Zoo 

23,65 

KirJson  Keys 

23.65 

Delta  Drawing 

27  25 

Up  'or  Grabs 

27.25 

Cosmic  Life 

23.65 

Trains 

28.00 

Synapia 

Ft.  Apocalypse 

(D.CI23  70 

Shamus 

(D.O23.70 

Blue  Max 

,D  C  23  '0 

Dimension  X 

(D.CI23  70 

Strategic  Slmulallont 

Combat  Leader 

ID)29  00 

Knights  Dl  Ihe  Desert 

(D129.00 

Computer  Baseball 

(DI29  00 

Eagles 

(DI29  00 

fllngsideSeat 

(0)29  00 

Tlmeworki 

Dungeons  of  Algebra 

Dragons 

(D.CI19.10 

Robbers  of  Ihe  Lost 

Tomb 

1D.CJ19.10 

Wall  Slreei 

(D.C)19.1L 

Money  Manager 

(D,  019,10 

electronic  Checkbook 

(D,C|19  10 

Word  Pro  3  - 

65.00 

ATARI,  APPLE,  VIC  20,  T.I.,SOFTWARE  LISTS  AVAILABLE 

for  further  information  and  inquires  call  214-753-0485 
FOR  ORDERS  ONLY  CALL  TOLL  FREE 


Outside  Texas 


Inside  Texas 


.1-800-527-8698   1-800-442-8717 


8@{OT<3t?Q  PO. Box 2511 

teo-QWaaa  ^iitiatf      Longview. 

D      m    Texas  75606 


Snft  (Crilans 


PRESENTS 

GAMES  AND  mil  mi  5  VOR  r  nr  VN3JIK.  lm 

i-.-.vltv  Of  4lt*>k 

Ulleltdl  Derby    Pan  mutuel  b<  (ting  with  pUoptn| 

tint"*  vit  CM  S3  l,Q  I 

f J ■  I ■  h  Hi>lt    a  i"    iiiU'  fin--.li ir.  fruughl  w«h  audio 

vnual  '■    rTiiiTit.it  lymrursltcs    Icytllcli   requited 

Vnet  w  «il>  Sifl  *  ■ 

*uper  Cipher    i » .-  p+m  tidai  iw  s>mM  codes  Seta  i 

length  and  time  fntlnlte  levels  oi  diiUculiy   I  of  2 

players 

Unci  vn  CM  SUM 

jJrocriim  Cellar    hu.-Mnrj-ptwl  rrnn,ifncn*  WchrwquCi 

in  (jAsm,    Auto  renuhibci  iMete  £»*>>  ',|,"1T'-  BA5K 

l>iiMjr.diiiTi  lnii".  S(tli  rootmi'  Mu,m 

VU    t  r.l  •>■]■». 

jjjt**  CeJI.tr    Owr  WNI rwonji  | ■■  ■  ■  I ■  -- k  RAnrJomat 

(Ms  iM«tmi  |jKini|)ii-H  Mp'<3'nuti]t<rH  wrt*  EittH? 

I  !■!■  II    - 1  I  ■■ jr  i.'  i  .!■■ 

imuuK  Diskilrm*rrqulned  SIQfll 

SEND  ClliLK  OR  MONEV  ORDER  hi. 

SOn  CELLARS,  INC, 

828  RUE  ROYAL  SUITE  5*5 

NEW  ORLEANS.  LA.  701  16 


AMI1 


I  -i  ■- 


SPRITE  EDITOR/LIBRARIAN 

*  CREATE  SPRITES     On  a  24x21  grid,  single  or 

multi-cDlcr  .valch  asSpnit 
is  Duilt  to  normal  size 

*  SAVE  SPRITE         Normally  or  with  Sprile 

Librarian 

*  LIST  SPRITES         Wilh  Sprite  Librarian  and 

than  do  a  load  or  save 

*  EDIT  SPRITES         Edit  old  Sprite  to  crriaie 

new  one 
-MENU  DRIVEN        For  easy  use 
•TURN  SPRITES       Invert,  reverse  and 

rotate 
'  APPPEND  SPRITES  To  your  own  program 
'  UPGRADE  Instructions  sent  FREE 

TO  OISK  on  request  to  upgrade 

from  tape  to  disk 

*  JOYSTICKS 

OPTIONAL  BC  SOFTWARE  PRODUCTS 

MID  CITY,  PO  BOX  337 
OAYTON.  OHIU  45402 

TAPE  —  S19.95/DISK      S22.95 
POSTAGE  SI. 00 


SvsTEfTjs  Td  Bddt 

SOFTWME  DEVELOPMENT  AND  DiSTRIDIJTIOM 

PRESENTS 


THE  FIVC  AB/EKTURIS  .  HAT  Will  .     AtML  QUICK 
Rf FLEXES  OF  THE  MINO.  NOT  THE  HANOI 

•  ROCKET  V-2  only  $15.95 

•  OR.  GEARDORF'S  LASER  only  $15.95 
•THE  ISLES  OFSSEtVKRAD 

(Parti)  only  $15.95 

•BENEATH  THE  ISLES  OF 

SSENKRAD  (Part  2]     only  $15.95 

•  SAND  SCREAM  only  $18.95 
(Graphics  (or  the  C-64  that  you  must  seal 

Wo  Ai  e  ....I   Miller  car  [I /Vug,  Cerirritiil  Check.  MO 

Allow  2  wlii  for  Perianal  Checks 

VIC-20  Requires  Minimum  8K  Eipaminn  [ATARI.  TRS-80 

Versions  Coming  Soon  I 

Add  12.00  tor  Disk.  Add  11.50  tor  Postige/Handlinrj 

RUSH  OH0ER  TO:   SYSTEMS   TO  BOOT  ■  2109  S. 

Fielder  est  •  V  0   Box  4106  •  Wichita,  Kansas  672M 

-ATARI.  Coitimcyiats.  TflS  Sd  ira  all  rag.jitru  iridsmsrSj  rt- 
efladhrily 
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with  TAPE 

The  DATABASE  that  grows  wilh  you  from 
8K  VIC  20'"  with  TAPE  to  CM"  with  DISK 
and  PRINTER.  It  will  create  a  MASTER 
INDEX  of  up  to  900  programs  (Vic  less) 
from  Disk  which  can  be  expanded  wilh 
comments. 

The  most  VERSATILE  and  USEFUL 
program  you  will  ever  buy,  it  can  be  used 
lor  anything  from  Recipe  File  to  General 
Ledger  to  Mailing  List. 

FREE  DISK  UTILITY  with  disk  version. 

$34.95  specify  TAPE  or  DISK 

Sky  Shepard  Software 
P.O.  Box  49,  St.  Marys,  IA  50241 
1 5  Yrs.  DP  Experience 
515-297-2289 

VIC  2D  iirnj  C6-4  ore  Etad«maf*&  of  Conimodofo  Eiecvonics 


MICRO-MATE"     

Sensibly  pilcod  desk- 
top bcco  eiorlsi  to  or- 
ganise and  Integra tc 
your  pe  r sona  I  com. 
puter  system. 

Don't  get  atuck  with  a 
cheap  wire  stand. 
Avoid  the  static  that 
plastic  can  generate. 
MICRO-MATE  -  ac- 
cessories are  heavy 
gauge  aluminum. 
Standard  and  ex-  ' 

panded  units  slide 
forward  providing 
access  and  storage 
for  plug-In  devices. 
Expanded  unit  has 
multiple  outlets  and 
switch  convenience. 

STANDARD  (Base.Wonllor  Stand) S: 

EXPANDED  (Else.  Bane  Monitor  Stand) i 

PRINTER  STAND    ', 

DISC  DRIVE  STAND  . ■ 

HONrTOR  STAND .1 

(plus  $4.00  shipping  and  handling) 

Call  now  toll  free  1-000-024-7888    Ask  tor 

operator  319    MASTERCARD.  VISA  OR  C.O.D. 


DEVELOP  YOUR  CHILD'S 
"ft        SPELLING  *  MATH  SKILLS! 

Make  the  drudges  oi  feawlng  fun  and  easy 
with  Sjwllinfl  Tutoi  M  and  Math  Tutor  It.  A  uni- 
que WiS*  lo  advance  your  child's  jbiliiy  in 
■  i  -    n  ( 


MATH  TUTOR  II 


LANGUAGE  TUTOR  II 


SPELLING  TUTOR  II 


■  Menu  i'»- 


•  Hum  H.i-1'  In 


•  (  rt-.itf  Student »  Sp^bng 

nr  J  jngUAjie  Ll"W(m* 

•  VdtliCNjn  N(;hf  ■■  '    ■■' 

»  MuUtfri  .  «lKkn  U  <  ■ 

•  F.i|M-  %tb  SS  rtw  prewaiTi 

•  Drilt  S16.95  ih  i  fttogram 

E*p-VAliQA  UiiK  UflHiH¥Haff  Specify  V'lt'20  m  C-M 

nlMi  jujiljtik  MS.D  Super  Floppy  D*|fc 

tutt  Linr  ltI  MSII  Pr<niu(t^ 

—  Srnd  lor  I  HI  I   «  n  .:,..    - 

^  'It       Ar  i    ;..  i   ,     .         1(;     ',■,,    ,\i    ■•     ■   |  k  I .  )i   k  V-     fj4 


■^  t.HE(  h  C>H  MlJMl  OHIHK 

IL  Kt  -II  >t  \  '•  -    \\i\\  S%  s.Mh  ]A\ 


SPH  SOfTWARt 

U.K.  *1 
E.  PEORIA.  II     r.u.ll 


VIC-20  /C-B4  USERS 
CARTRIDGE  BACKUP 

•  SYSTEM  IS  AM  EASY  TO  USE  PROGRAM 
AMD  A  HIGH  QUALITY  CARTRIDGE  INTER- 
FACE BOARD 

•  BACK-UP  YOUR  CARTRIDGES  ONTO 
TAPE  OR  DISK 

•  8K  RAM  (MINI  REQUIREQ  FOR  VIC-20, 
ON  BOARD  FOR  G-64 

VIC-20:S49.95  POST  PAID 
C-G4:S89.9o  POST  PAID 

CASSETTE  BACKUP 

•  EASY  TO  USE  PROGRAMS 

•  BACK-UP  ANY  CASSETTE  TAPE  ONTO 
TAPE 

•  REQUIRES  NO  USER  MEMORY 

VIC-20:S14.95  POST  PAID 
C-64:S14.95  POST  PAID 

NOW  CARRYING  OTHER  EQUIPMENT 
PLEASE   CALL  OR  WRITE   FOR   PRICE   LIST 
OF    COMMODORE   COMPATIBLE    EQUIPMENT 
AND  SOFTWARE 
VISA/MASTERCARD  ORDERS 

PHONE  (21  SI  269-4803 
MAIL  CHECK  OR  MONEY  ORDER  TO. 

E-M  TECHNOLOGIES 

P.O.  BOX  1B5 

DOWNINGTOWN.  PA  19335 
PA     RESIDENTS  ADD  6% 
6  MONTH  REPLACEMENT  GUARANTEE 


DISAPPOINTED 


inthCSCiirciiyul  lrulyuiB,<j!Hi;riiu  dppi i-: d.l m n  p rn rjr*4nT97  Finally,  a 
progwn  in. ii  you  ww  svanE  [dUSE  every  'wee*  CGi-av*  jtfcutimoantj 
niflfi*?y  *  •'.  naat  co^sJaftl  tttKUtirg 

SHOPPING  UrVNAGER 
a  Sy^flm  lor  GrOCtry  Sftoppvlng 

The  SySl»m  in  duces  Ewa  proj  ram  5  anrj ^  Eisupef^afkel  dala'tlo.  1 
SHOPPING  MANAGE  Ft  .is  ui-ud  -011  a  regular  busts  ll  dtfipfays  ihe 
COnlentS  or  YOLfH  iupormnrkiH  to  yciy.  an  aisli*  ffltffi  Mne.  for  youf 
Mlacti on,.  U m  the  runci ion  ho^» To  can ly  notu  cqu pen  or  1  j *  i1#jth, 
or  add oe'ion  jt  conuFnunit la  your  im  the-  Finn  p" n rn u i  is  ■ 
inoopirHTj  iiti  Arranocd  «n  >o  by  «it>e.  irjf  ling  «t  :n*  Hoi*  mw  *nc« 
And  laniBhing  anNe critic HOnjll<n«  H  wmicu!  ycuMmnv  imh*«oie  m 
hall,  irliininar*  impu.se  b'jyimj  ana  telyrn  Iripj  1or  turcjollfrn  il#m» 
No  more  Coupon  s*8.rchHt>  in  ihoiTiJdoie  of  an  n>«l«  ?  MARKET 
MAPPHH  (i?  pmeram  m  VJC-JD).  ii  a  *upar  editing  package  th*l 
parnlesulv  [urmuhe  SAMPLE!  mewkuc  U\b  into  an  dccurAEe  mfsp  of 
YOUR  suLWNTiiiffctil  Dis-pldyriintseoitingopltaris,  mcluflin^  rjr.ntar 
djmpalino  fue  makeane**iOf&  ftdititTfliSlnig.  rtuf^angeand 
mefge  aiSltJi  ind  copy  f  i!«  1 6*1*a  en  d,s>*  and  TApt)  an  any  orde^ 
iWe  hale  uIKJ  aS  ifrg  dalairasf  si 

3.  SAMP  L  E .  f  n*j  syperr-.^  *  d  daf  JC  as.&,  Km3a-ni  m.sjny  #&  es.  a  nd 
oveT  1  mo  .1  trm  s  Trie  SAMPLE  amies  are  h-u  itdi  ng  OJocks  that  yc  u 
can  murou  12nd  rearrange  tObuiLH  a. model  01  your  own  lavOnte 
alora  (11  can  W*e  be  useOwtMoui  modi flcal ion, 

REQUIHtS  C-fl4orVlCs?0|*rl6KOipansi(jn).fVor 
Monitor.  r.i.[.'i.(LJ.ii.ii.i,i'iff'i'1'D  ■■<  O'l-r 
dnd  PruTdjer 

US 5.2B95  »  tl  50 shippng (C ana oa 4 OK x Cony  H4le  *  S3 00 

■  =j.|Ttf  uSoriCiiri  side] $7&0 tar C&4 h.re? cc>1of  ]*Ck- 
OmONAi.| 

SendcTioekor  m &ney  orde r  to 

SEBEMDIPITVSOfTVhtARE 

473JCT3*jn:rvClut?Dr 

PiltSMU-tion.  Pa  t323& 

tspeci1yC-64or  V'?D.  Tape  Or  Di*hr 

PA  res'tlori-Ei  JQU  finu  lai 

(color  |idt  iltfO  strlti  sepnminiyi 

Dosilur  iriqu  ' iflt  ifwilisd 


NEW 


C-64 


SAIL  TO  AMERICA 

A  totally  new  computer  experience 

•  Parents  TeSI  your  kids  CaCmean^  Jh&  Voyage  of 
the  MayftQvrQr  has  311  ihe  color,  sou  no  and  exciift- 

ment  they  love.  Challonge  the  mighty  Atlantic. 
doiy  its  roaring  itOffflt  and  bring  your  paa&sngers 
aalely  to  ihe  now  world.  There's  never  been  en 
M«piirinnce  like  it  Anywhere- 
■  Kidi  Tell  your  paranls  Tft&  Voyage  ot  tfte  May- 
flower  is  a  ternlic  learning  adventure,  Recreate  Ihg 
n,LMi:.i;.  and  rJrama  ol  Ihe  tirsl  Pilg/im  voyage 
Leain  about  saiiins  strategy,  weather,  navigation 
and  history.  The  mora  you  know  the  more  fun  it  is. 
Every  level  is  a  unique  experience  whether  you're 
&  or  60.  Unforgettable. 

*  Fam.llle.ft  Pit  your  imagination  against  Ihe  world  as 
Ihe  Pilgrims  knew  it-  Share  the  exciting  journey  lo 
a  new  life  in  a  new  land.  Risk  the  danger  and  learn 
together  how  the  Mayflower  sailed  m|o  history  on 
Ihe  courage  of  those  few  who  dared. 

All  this  and  a  FREE   .1   *   16  Poller  lor  only  $29 
Scnoo!  and  do-alur  tnqwries  welcomed 
DISK  ONLY 
ORDER  NOW.  FREE  shipping  for  MasterCard  and 
Visa  orders.  Call  (313)  994-0845  Day  or  Nigh],  COD., 
checks,  money  orders  add  S3  00  shipping. 
CADMEAN  CORP..  309  Koch.  Ann  Arbor,  Ml  48103 


Numeric  key  pad 
for  Commodore 
VIC-20  and  64 


Liu 

4321  Airwest  S.E. 
Grand  Hap  ids,  MI 
(616)  698-5000 
VISA  and  Masterc 


With  full 
cursor  control 
and  special 
function  keys. 
No  software 
interaction. 

$59.95 

Retail 


49509 

ard  accepted 


DISK  DUPLICATOR 
FOR  COMMODORE 
SINGLE  DISK  DRIVES 

(1540,  1541  and  2031  used  with  a 
VIC-20,  commodore 64,  CBM  4000  or 
CBM  8000  computer) 

DISK  DUPLICATOR  provides  you  a  last 
and  easy  way  to  make  back-up  copies  of 
your  precious,  irreplaceable  diskettes.  En- 
joy the  convenience  of  a  dual  disk  drive 
without  theexpense.  DISK  DUPLICATOR  is 
100%  MACHINE  LANGUAGE.  100%  FAST. 
and  most  importantly,  1 00%  AFFORDABLE' 

Don'l  let  an  accident  or  mistake  catch 
you  without  back-up  copies  ol  all  your 
diskettes.  ORDER  "DISK  DUPLICATOR" 
TODAY  at  Ihe  special  introductory  pnceot 
only  SI  4.95  postage  paid  (check  or  money 
order  only  please). 

H&H  ENTERPRISES  DEPT.  123G 

5056  NORTH  41  st  STREET 
MILWAUKEE,  WISCONSIN  53209 


CONVERSE  WITH 
YOUR  COMPUTER 


AT  LAST!  A  FULL  IMPLEMENTATION  ol  necng  r-al  ELl2Ap-0- 
flf#mi  'S  rwjw  dv&  la&'fl  ",o  run  enyoyt CommodiM&t! 
Crearada!  MiT  m  19*6,  ELIZA  has  Eraccmamc  wcrio's  mcji  ctifl' 
grated  artif  pal  ini*;l-ognco  rJemonslraEron  program.  ELrZA  s a  nor* 
tl\  i  pc  i  ive  osycnothe  rnfn  it  wi-a  analyras  each  sratBirienl  as  you  rypn 
■I  in  and  the -i  responds  *i  I  h  her  own  cam  m  n  'it  or  q  uesEiar.  -  end  h*r 
(HiTiorit  are  oftan  nmwinrjly  appropriate! 
OMflnud  to  run  on  a  large'  mainframe,  EL12A  has  timet  bvityts  tmun 
avji'jib'o  tD  pertOnal  computer  uwm  dCfpl  in.  g'ea!l]r  Sl'ippfld 
down  wiiori  Ur> mp  |t>o  MpH.|,Tira;.an  *fit"i  fade  !ne  ciiCj.^il 
program  scfascmatimj 

Now,  ou*  nflw  Com  m  odcr^  64  venjicn  pc*M»ing  (he  FULL  po*** 
and  r.irje  of  ex  press,  on  of  the  anginal  is  being  aftered  at  tne  intro- 
ductory ps-i ce a(  onl y  $25.  And  «f  you  want  to  N  n  d  g  ui  hgw  s no  does 
il  for  lep^h  her  id  dg  moroj  we  iVl  include  1ha  complete  SOURCE 
PROGRAM  'cronly  S20  addilional. 

0*di?f  your  cop^' of  ELIZA loday  and  you'll  never  acam  ■wnoer  how 
10  reipo-id  ivnon  yoy  near  sOmeo1'-*  ■jjy  '  Obaf.  'Jet  s  See  w.al  lhis 
COmpufflrctyOw'SCJintClLia.'EydO1 ' 

ELIZA  IS  AVAILABLE  IN  THE  FOLLOWING  FORMATS 

(Piojih*  ipeci'y  Drih  or  CaaieilB'i 
1   Protected  V&rsion  £25 

(Protected  Vernon  can  bo  run  but  not  lined  or  modili&d) 

?  Un-pTBtodod  Commodore  64  BASIC  Bounce  Vernon  (45 

(Source  Version  can  be  lined  ana  modified  as  wetl  asrui) 

Bdh  varuons  includes  nx  page  uiet  manual' 

Pi  e a5*  add  52  CO  srt  p  p,na;  and  handling  Tg  al  I  crtfen 

[Cahforn,!  renrdents  please  add  8*t  lYmcut 

ARTIFICIAL  INTELLIGENCE  RESEARCH  GROUP 

f  2 1  Norf  h  La  Jg  !l  a  Avenge.  Oept.  G 
iaaBHHH  LOa  A ng eles ,  CA  BQQ46 

^H™       u'i;HGt6-73Ga        (2l3)654»2?14 
—2^        MC  VFSA  and  checki  accepted 


EXPAND  YOUR 
VIC  20®  MEMORY! 

Affordable  Mem- 
ory Expander  lets 
*  .*  T  -^2?^    V  >u  ,  id  rl  2  K  R  A  M 

f  ^K  *^H    needs  increase 
JGtfMl    (UPI0  35K  > 

M&lhcr  Board  milh  Instruc lions .   J39" 

Mother  Board  S  Sockets  with  Instructions  ....  !540"' 

Complete  Kit  wilh  Cibinf  I  |35K] *  1  59" 

Assembled  STaslad  Expander  [35X| *1  89s9 

Each  Mil  2K  Chip  |Jp  la  Z30K  paged  RAM] 

|'l  Shipping] '8" 

Send  Check  or  Money  Order  to 

PERIPHERAL  DEVELOPMENT 

P  O  Box  28247 
St,  Louis,  MO  63132 

■;AddSSS  H  Wittjgun  residenCEi  JfJd  Gbi"b  tan) 

Prices  sublet  lo  change  witnoyJ  fW)  ce 

v.c  h>id  Itodtmatt  erf  'Cammtritrt  II»HrefliEi.  Lta 


HOMEWORK  HELPER 

3-6  GRADE 

ARITHMETIC 

Child  enters  problems  from  his 
text  book  and  is  guided  through 
the  entire  process.  Every  step  is 
displayed  on  the  screen  including 
carry  digits.  Helpfeatureand  color 
screens  make  math  fun.  Addition, 
subtraction,  multiplication  and 
division. 

VIC  20  or  C64  TAPE 

Send  check  or  money  order  (or  $11.00. 

DEB  HOMEWARES 

4044  West  lake  Dr. 
Cortland,  Ohio  44410 


of  the 


IjlM 


In  an  abandoned  corner  of  desert   Lie 
ancient,    unsolved   mysteries, 
danger,    death  and  forgotten  treasure 
rLw-ii:    ynu    in 

LAIR  OF  THE  LIZARD^EN 

text  ndventure  for  C-64  or  VIC-20 

(VIC  requires  6k  expansion) 

Specify  disk  or  tope.  VIC  or  6'+ 

$15.00  di»k  or  tape.   Add  $1   shipping 
California   residents  add  b\%  c«ix. 


WEREWOLF  SOFTWARE 
105  Minna  Street 
Suite  353 
San  Francisco,  CA  94L05 


VIC  &  64 


LEROY'S  CHEATSHEET1 


ONLY  :r  .t.'\!,s:t 


AT  LAST'  HUfMiiiforrikilK.ri  v-'Uiifi'-fi  ' 

fKiicK  To  Ihi  ma  w  ti  1 1  m  m  (JumWo  ptaa  tic  coftlad  ovnr  - 

fay?!  ronljim  proorotii  hlnrliriff  locnttOflS,  function  ki;y  Lttx;!  ■ 
irKi.comrn.ind?;  anctadd  tionFilaidT>  Incsnllir  cutoul. 


3  Prpgramrneir's  Am' 

G  Vlcmo^, 

z:  Super  Expander' 

□  Hosmon 

ci  Giiic  Result  (i-him-ij 

U  rorrti  64' 

i  i    □  Quick.  BrnvMfi  Fox 


»     6* 

a    c  Graph*  printer  [■:- i --•■ . 

□  Paper  Cnp 

c  Script  M 

□    c  HES  Writer' 

e  Wordpro  3  plus 

o  Easy  Script' 

d    D  Baaip 

OOHM 


.<"■■!  :   ,  ■■■ 

Cily 


CHEATSHEET  PRODUCTS ' "  |^ 

RO  Box  B299  Pitlsbuiijl)  PA    15210    |,ji2)ii56-M20 


OPEN  SALE! 

finally  it's  here:  a  genuine 
discount  wholesale  computer 

supply  company.  Quality 

guaranteed  sales  &  service, 

for  the  lowest  prices  anywhere. 

314-423-3469 

p.o.  box  8467,  st.  louis,  missouri  63132 
Special  Script  64  Dictionary  Disk  5 15.95 

WE  SELL  EVERYTHING  FOR  LESS 

fZDCrrr-  Programs  on 
inCC.  Tape  or  Disk 
with  orders  of  $75.00  or  more. 


Want  A  Greener  Green  Thumb? 
Shake  Hands  with  PLANT1N'  PAL 


Z*fr 


If  Mm  cnjm  Curdenint;,  you'll  love 
PLANTIN'  PAL. 

Wiih  PLANTIN'  PAL  snu  can: 

*  Take  yoat  tusiom-designed  layout  to  your  garden 

*  Plant  the  right  amount  uteuLh  vegetable  tor  sour  needs 

*  Identity  anci  beat  bugs  &  diseases 

*  Create  >our  individual  planting  &  tcrEilizmg  schedule 

*  And  s<)  muehmorc 

Get  1 1  lendl)  with  Planiln'  I *ai  today. 
On  disk  for  Commodore  64. 
Printer  optional  but  preferred. 


V/S4 


$29.95 


To  order  call  (612  )925-259l  or  write: 

Home  &  Hobby  Software 

4936  Morgan  Ave.  S.,  Minneapolis,  MN  5541N 


B  A  S  I  C  -  P  L  U  S 1 


FOR  COMMODORE  -  6* 
"14  POWERFUL  SYSTEM  COMMANDS" 
'Make  Basic  Programming  Faster  $  Easier' 
Lint  Numbering:  Formatting: 

•AUIOIIncr)  'CRUNCH 

•RENUMIOM,  New.  Inert    'UNCRUNCH 
Program  Slruclure:  Sfrftrch/LItt: 

•append'  Preens',  d      -analyse 

*DELE7Em-n  'FIND/Slrmg/ 

'OLD  *REF  rn-n 

Function-Key  Delinllion/Control: 

"FSET  Fmn- 'Commands'    'FLIST  m-n 
FSAVE'Table'.  d  FLOAD'  Table',  d 

"5k  Program,  Written  in  Machine  Language; 
'Loads  in  15  Seconds  iFrorn  Diskette) 
'Can  Co-Exisl  With  DOS  Wedge 
"Ultra-Fast  Completely  Renumbers 

500-Line  Program  in  5  Seconds'") 
"FIND  &  REF  Commands  Praclicly  Eliminate 

Manual  Program  Scanning  For  Usage  Into 
"64  Frequently  Used  Command  Sequences  Can  Be 

Defined  &  Accessed  Via  TWO-TOUCH  Fundion-Key 

Selection  [A  Lselul  Function  Table  Is  Supplied) 
"CRUNCH  Can  Improve  Pgm  Load-Time  And  Space 

Requirements  As  Much  As  t5M1 
"Package  AI50  Includes  A  Utility  Pgm  To  Copy 

Machine  Language  Pgm  Files 
$21.95  -  Send  Check  Or  Money  Order  1o 
D  Burnelt.  481?  Clipping  CI .  Louisville,  Ky  .  40222 
1502-228-0341]  Please  Allow  2-3  Weeks  For  Delivery 


VIC  20  COMMODORE  64 

UMI  /  VIC  20 

Spiders  or  Mars  (CI  $29.95 

Meteor  Run  ICI  $29.95 

Amok  |T|  $16.95 

Sat  &  Met  ICI  $29.95 

UMI /New  torC -64 

Pennant  Drive  $29,95 

2  player  baseball  strategy 

Motor  Mania  $29.95 

hi -performance  racing  game 

Fuago  $29.95 

light  fire- throwing  drones 
to  save  the  space  crew 

TOTL  SOFTWARE 

$  34.00 
$20.00 


TOTL  Text  2.6  IDI 
TOTL  Label  2.6  IDI 

Send  cash,  check  or  money  order  to: 

ARIES  MARKETING  CO. 

P.O.  Box  4196 

4200  Shannon  Drive 

Baltimore,  Maryland  21205 

Md.  residents  add  5%  state  sales  tax 


COMMODORE 

ATARI/T.I. 


PROTECTIVE  COVERS  $5,99 

Atari  CX  2600 
Commodora  Vic  20/64 
Texas  Instruments  99/4 

also 
Atari  Sack  pack  S7.99 


C-64  SOFTWARE  (cartridges) 

Robbers  ol  the  Lost  Tomb  (Timeworks)  .    $18  95 

Moondusl  (Creative) $23.95 

Save  New  York  (Creahve)      .             ...  $23.95 
C  -64  Aud  id/Video  C  a  bl  o  ( Aud  to 
input/oulpul  &  video  output) $  7.95 


SLM  COMPUTER  PRODUCTS 

1472  Loo  Dillon  Ln.  #2 

Santa  Barbara,  Ca.  93103 


Add  SI  .50  Shipping  Handling— Ca.  res  6%  lax 


fir 


fey 


VIC  20" 


KIDBIT  SOFTWARE 

PRESENTS: 


THE  PLAYSCHOOL 
TAPES 

Pro-idioo/  learning  programs,  on 
caudles  lor  ihv  unexpaiHltil  VIC 

□  WORMStCAL  COUNT 

□  SAME'NOT  SAML  GAME 

□  SMA1L  WIZARD 'CAPITAL  WI7ARD 
D  At  PH  A -BEL  SEQUENCE 

□  S7.95  M,  Q*12.<Stor2 
O  $14,95  ill  4            D  f  REE  BROCHURE 

CA  residents  add  6V.v.  sak^  i.it. 
PastaRe  &  Handling  Add  S1.00 
Personal  check  or  money  order  accepted, 

Kidbil  Software 

7001  Sunkist  Drive 

Oakland,  CA  94605 

(415)  638-1243 


EPROM  PROGRAMMER 

FOR 

PET  •  COMMDDORE-64  •  VIC-20 

DELUXE-PROGRAMS  M 

2716    thru    27128 

2516    thru     2564  * 

MENU  driven  DISK  itt*r  $99.50" 

I  net.  MACH.  LANG.  MONITOR  and  FILE 

MANA6EMENT.     COMMANDS  include; 

raid. verily. black  select,  program, 

load .  savo.atc  +M0HIT0R  COMMANDS 

L.I.  F.  SOCKETS  lor  easy    operation. 

device  connect  i  to  CPU's  USER  PORT. 

jottware  to  opera  1  a  ALL  CPUs  Incl. 

EC0N0MY-27I6  64        ..,*«? 

read.  pgm.  &  »ar.  ONLY  •.•-,• 

basic  programmar-whan 
editlng&lile  storage 
ARE  HOT  needed  1  IF  Incl.  $59.50* 

I2!5)2SBBS33     DA^CQ      (21512566033 


s 


Box267  Ledorach. Pa.  19450 
*+S2,ihlp.«Pa.rei.idd6% 


SAN  FRANCISCO  AREA 
COMMODORE  USERS  GROUP 

SptlINX 

PET-VIC  20-C64 

MEETINGS   CLASSES 
NEWSLETTER- 
BULLETIN  BOARD  SYSTEM 
PUBLIC  DOMAIN  SOFTWARE 
SEND  *2  for  CATALOG 
JOIN  •   *24 
ANNUAL  MEMBERSHIP  FEE 

(415)  527-9286 

267    ARLINGTON    AVENUE 
KENSINGTON, CA    94707 


'PUBLIC  IfOMAIHP™ 

-    SOFTWARE   - 

Supporting  alt  COMMODORE  computers 

Written  by  uaars,  for  uaara 

*  GAMES  *    UTILITIES  *   EDUCATIONAL  + 

VIC20™ 

collfldion  #1  -collection  #2-  collection  #3 

collection  «4  -  collection  «5  —  collection  #6 

70+  pron/em*  pet r  collection  -  '.■-,,:.:■  .\  -  £1000 

COM  JI ODORE  64™ 

64  collection  #1-54  collection  #2-64  cotlsctJon  *3 

64  collection  #4  -  64  coltection  #5 

25+  program!  per  collection  -Tape/ Dish  -  SI 0,00 

PE1®  /  CBH® 

5  Utility-  Tapes/Disks  -  $10  00  each 

11   Game- -  Tapes/Disks  -  Si  0.00  each 

B  Education*!  -  Tape*/ Disks  -  $10  00  escn 

]>i  vsi  r -:  React  Suiidi 

Works  on  Vic  20  or  Commodore  64  -  $5.00 

All  prices  Include  ahlpptng  and  handling. 

CHECK,  MONEY  ORDERS, 

VISA  and  MASTERCARD  accepted 

Far  A  Free  Catalog  Writer 

Public  Domain,  Inc. 

5025  S    Rangeline  ftd,  Wr  MiFion.  OH  45333 

10:00  am    -  5:00  p  m,  EST  -  Mon.  thru  Fri. 

|513]  6DB-563B  or  |513)  333-1  725 

<f.  XT   Ctmr   rj  t* 
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Multi-Pac  Software    148 

141  Northland  Accounting,  Inc 77 

NR1  School  of  Electronics    75 
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ive  siot  Expansion  Interface 
fortheC-64™ 


The  CARDBOARD/5 
(CB/5)  is  an  enclosed 
five  slot,  fully  switch 
selectable,  expansion 
interface  tor  the 
Commodore  64™.  This 
quality  product  allows  the 
user  to  switch  select  any 
cartridge  slot  or 
combination  of  cartridge 
slots.  Twenty-two  color 
coded  light  emitting 
diodes  give  status 
Indication.  Each  slot  has 
four  LEDs  and  two  toggle 
switches  for  indication 

:  and  control.  Two  master 
toggle  switches  allow  the 
user  to  manually  override 

I  any  situation. 

Ail  Cardco  products  are 
individually  tested  to 
insure  quality  and 
reliability. 


Some  of  the  features  of  the 
CARDBOARD/5  are: 

9  high  qualify  glass/epoxy 
circuit  board 

•  gold  plated  contacts 

•  logic  lines  are  switched  by 
solid  state  IC  switches 

•  full  LED  status  indication 

•  convenient  toggle  switches 


full  support  under  the 

board  to  prevent 

flexing 

full  plastic  enclosure  to 

insure  safety 

fused  to  protect  your 

computer 

convenient  reset  button 

CARDCO,  Inc.'s 

exclusive  Lifetime 

Guarantee 

Manufacturer's  Suggested 
Price:  $79.95 


^iK—. 


»    i  1*33 


See  a  complete  line  of  American 
made  Cardco  Products  at  a 
computer  store  near  you,  today. 


313Mathewson  •  Wichita,  Kansas 67214  •  (346)  267-6525 


Commodore '"  Is  a  registered  trademark  of  Commodore  Business  Systems,  Inc. 


cardco,  Inc. 


£k  commodore 


3CI^4f 


iiMDISPENSABUE 

software; 

ForVbur  Most  important;  Computing  fsJeeds 


[tioriimodora     (i|i  I     ^e  canimodarf 


fl   1    JJ    1 


Easy  Script  64 

Displays  764  lines  <  2*0 
characters.  Prints  lo  130 
columns.  Works  with 
EasySpell  64. 


EasySpell  64 

20,000  word  Master 
Dictionary  and  aulomalie 
spelling  checker  Vitarks 
with  EasyScript  64. 


c" £  oomrrwxiaro 

EasyCalc  6t 

Multiply  electro;  iic  spread- 
sheet with  color  aar  graph 
feature.  63  columns  x 
254  rows. 


f*E  commodore 

The  Manager 

Sophistic  a  led  Qatabase 

system  with  4  built-in  sppli-        Combine  text  with  high 

cations,  or  design  your  own       resolution  graphics.  Music 


Super-Expander  64 

21  special  commands. 


Texl.to 


jraphi 


and  game  sounds. 


£c  i^arnrriodore         fa  cor 


I 


;  commDC 


Easy  Finance  I — 
Loan  Analysis 

12  loan  (unctions  Bar 
graph  forecasting  as  well 
as  calculation 


Easy  Finance  II — 
Basic  Investment 
Analysis 

16  stock  investment 
functions.  Inveslmont 
bar  graph. 


Accouniiu 

B1U.JTUG 


Easy  Finance  Ill- 
Advanced 
Investment 
Analysis 

16  capital  Investment 
1  unctions.  Bar  graphs. 


OETUERAi. 


Easy  Finance  IV — 

Business 

Management 

21  business  management 
featuros.  Bar  graphs. 


RMVENTORY 

MArMAGElVJElUT 


%jl  commodore 

Easy  Finance  V — 
Statistics  and 
Forecasting 

Assess  present,' future 
sales  trends  Willi  9 
statistics  and  forecasting 
functions. 


PAYROLL 


Ooemmodor* 


Accounts  Payable/ 
Checkwritlng 

11  lunclions.  Automalic 
billing.  SO  vendors'disk. 


Ck.  cornrnocioi-ta 

Accounts 

Receivable/Billing 

1 1  billing  functions  Prinled 
slaloments. 


ft  cam*mociore 

General  Ledger 

8  general  ledger  op  I  ions. 
Custom  income  Statement, 
trial  balances,  reports 


j^scommodora 

Inventory 
Management 

1000  invontory  ilems. 
Full  reports 


(jz  ciomrnackare 

Payroll 

24  different  payroll 
lunclions.  Iniegraled  wilh 
G/Lsyslom. 


C*  commodore 

w  COMPUTERS 

First  In  Quality  Software 


